Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
|
|
@ -1,4 +1,4 @@
|
|||
( balance
|
||||
( ( balance
|
||||
= a x b y c zd
|
||||
. !arg
|
||||
: ( B
|
||||
|
|
@ -20,7 +20,7 @@
|
|||
| !arg
|
||||
)
|
||||
& ( ins
|
||||
= X tree a m z
|
||||
= C X tree a m z
|
||||
. !arg:(?X.?tree)
|
||||
& !tree:(?C.?a,?m,?z)
|
||||
& ( !X:<!m
|
||||
|
|
@ -44,4 +44,4 @@
|
|||
& insertMany$(!R.!tree)
|
||||
| insert$!arg
|
||||
)
|
||||
;
|
||||
);
|
||||
|
|
|
|||
|
|
@ -1,8 +1,9 @@
|
|||
( it allows for terse code which is easy to read
|
||||
( ( it allows for terse code which is easy to read
|
||||
, and can represent the algorithm directly
|
||||
.
|
||||
)
|
||||
: ?values
|
||||
& insertMany$(!values.):?tree
|
||||
& out$!tree
|
||||
& done;
|
||||
& lst$tree
|
||||
& done
|
||||
);
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
(tree=
|
||||
B
|
||||
. ( B
|
||||
. (R.(B.,,),algorithm,(B.,allows,))
|
||||
|
|
@ -18,3 +19,4 @@
|
|||
, (R.(B.,the,),to,(B.,which,))
|
||||
)
|
||||
)
|
||||
);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue