Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
|
|
@ -0,0 +1,14 @@
|
|||
USING: io kernel locals math prettyprint sequences ;
|
||||
|
||||
[let
|
||||
! Create a sequence of 10 quotations
|
||||
10 iota [
|
||||
:> i ! Bind lexical variable i
|
||||
[ i i * ] ! Push a quotation to calculate i squared
|
||||
] map :> seq
|
||||
|
||||
{ 3 8 } [
|
||||
dup pprint " squared is " write
|
||||
seq nth call .
|
||||
] each
|
||||
]
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
USING: fry io kernel math prettyprint sequences ;
|
||||
|
||||
! Push a sequence of 10 quotations
|
||||
10 iota [
|
||||
'[ _ dup * ] ! Push a quotation ( i -- i*i )
|
||||
] map
|
||||
|
||||
{ 3 8 } [
|
||||
dup pprint " squared is " write
|
||||
over nth call .
|
||||
] each
|
||||
drop
|
||||
Loading…
Add table
Add a link
Reference in a new issue