aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Runtime-evaluation-In-an-environment/00META.yaml Normal file
View file

@ -0,0 +1 @@
--- {}

3
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-1.factor Normal file
View file

@ -0,0 +1,3 @@
USE: eval
: eval-bi@- ( a b program -- n )
tuck [ ( y -- z ) eval ] 2bi@ - ;

2
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-2.factor Normal file
View file

@ -0,0 +1,2 @@
IN: scratchpad 9 4 "dup *" eval-bi@- .
65

1
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-3.factor Normal file
View file

@ -0,0 +1 @@
: bi@- ( a b quot -- n ) bi@ - ; inline

2
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-4.factor Normal file
View file

@ -0,0 +1,2 @@
IN: scratchpad 9 4 [ dup * ] bi@- .
65

4
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-5.factor Normal file
View file

@ -0,0 +1,4 @@
SYMBOL: x
: eval-with-x ( a b program -- n )
tuck
[ [ x ] dip [ ( -- y ) eval ] curry with-variable ] 2bi@ - ;

4
Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-6.factor Normal file
View file

@ -0,0 +1,4 @@
IN: scratchpad 9 4 "x get dup *" eval-with-x .
65
IN: scratchpad x get .
f