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

Build defs.pl from defs.txt.

Browse Source
This commit is contained in:
Simon Forman
2019-08-10 22:03:44 -07:00
parent 90bccece6a
commit e49b0b70cb
5 changed files with 9 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/gnu-prolog/defs.pl
+1 -11
View File
@@ -1,12 +1,3 @@
GNU Prolog 1.4.4 (64 bits)
Compiled Oct 11 2018, 14:29:28 with cc
By Daniel Diaz
Copyright (C) 1999-2013 Daniel Diaz
compiling /home/sforman/src/Joypy/thun/gnu-prolog/meta-defs.pl for byte code...
/home/sforman/src/Joypy/thun/gnu-prolog/meta-defs.pl compiled, 40 lines read - 4480 bytes written, 6 ms
compiling /home/sforman/src/Joypy/thun/gnu-prolog/parser.pl for byte code...
/home/sforman/src/Joypy/thun/gnu-prolog/parser.pl compiled, 72 lines read - 7481 bytes written, 8 ms
| ?- do.
def(--,[1,-]).
def(?,[dup,bool]).
def(++,[1,+]).
@@ -16,7 +7,6 @@ def(app2,[[grba,swap,grba,swap],dip,[infrst],cons,ii]).
def(app3,[3,appN]).
def(appN,[[grabN],cons,dip,map,disenstacken]).
def(at,[drop,first]).
def(average,[[sum,1,.0,*],[size],cleave,/]).
def(b,[[i],dip,i]).
def(binary,[unary,popd]).
def(ccons,[cons,cons]).
@@ -67,7 +57,7 @@ def(shunt,[[swons],step]).
def(size,[0,swap,[pop,++],step]).
def(split_at,[[drop],[take],clop]).
def(sqr,[dup,*]).
def(step_zero,[0,roll>,step]).
def(step_zero,[0,rollup,step]).
def(sum,[0,swap,[+],step]).
def(swons,[swap,cons]).
def(take,[[],rolldown,[shift],times,pop]).