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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Currying/Factor/currying-1.factor Normal file
View file

@ -0,0 +1,8 @@
IN: scratchpad 2 [ 3 + ] curry
--- Data stack:
[ 2 3 + ]
IN: scratchpad call
--- Data stack:
5

9
Task/Currying/Factor/currying-2.factor Normal file
View file

@ -0,0 +1,9 @@
IN: scratchpad [ 3 4 ] [ 5 + ] compose
--- Data stack:
[ 3 4 5 + ]
IN: scratchpad call
--- Data stack:
3
9

4
Task/Currying/Factor/currying-3.factor Normal file
View file

@ -0,0 +1,4 @@
IN: scratchpad { 1 2 3 4 5 } [ 1 + ] { 2 / } append map
--- Data stack:
{ 1 1+1/2 2 2+1/2 3 }

5
Task/Currying/Factor/currying-4.factor Normal file
View file

@ -0,0 +1,5 @@
USE: fry
IN: scratchpad 2 3 '[ _ _ + ]
--- Data stack:
[ 2 3 + ]

4
Task/Currying/Factor/currying-5.factor Normal file
View file

@ -0,0 +1,4 @@
IN: scratchpad { 1 2 3 4 5 } [ 1 + ] '[ 2 + @ ] map
--- Data stack:
{ 4 5 6 7 8 }