sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a bug in rest. 

It didn't tag the tail list as a list.

Also, spell out bool for true cases.
This commit is contained in:
Simon Forman 2020-01-26 17:06:21 -08:00
parent ab0a378b56
commit 714aa59c43
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
thun/thun.pl
View File

@ -168,7 +168,7 @@ func(swaack, [list(R)|S], [list(S)|R]).
func(stack, S , [list(S)|S]). func(stack, S , [list(S)|S]).
func(clear, _ , []). func(clear, _ , []).
func(first, [list([X|_])|S], [ X |S]). func(first, [list([X|_])|S], [ X |S]).
func(rest, [list([_|X])|S], [X|S]). func(rest, [list([_|X])|S], [list(X)|S]).
func(unit, [X|S], [list([X])|S]). func(unit, [X|S], [list([X])|S]).
func(rolldown, [A, B, C|S], [B, C, A|S]). func(rolldown, [A, B, C|S], [B, C, A|S]).
@ -185,7 +185,9 @@ func(bool, [ int(0)|S], [bool(false)|S]).
func(bool, [ list([])|S], [bool(false)|S]). func(bool, [ list([])|S], [bool(false)|S]).
func(bool, [bool(false)|S], [bool(false)|S]). func(bool, [bool(false)|S], [bool(false)|S]).
func(bool, [_|S], [bool(true)|S]). func(bool, [ int(N)|S], [bool(true)|S]) :- N #\= 0.
func(bool, [list([_|_])|S], [bool(true)|S]).
func(bool, [ bool(true)|S], [bool(true)|S]).
% func(bool, [A|S], [bool(true)|S]) :- \+ func(bool, [A], [bool(false)]). % func(bool, [A|S], [bool(true)|S]) :- \+ func(bool, [A], [bool(false)]).
func('empty?', [ list([])|S], [ bool(true)|S]). func('empty?', [ list([])|S], [ bool(true)|S]).