18 lines
332 B
Text
18 lines
332 B
Text
[ temp put
|
|
[ dup cards dup
|
|
sets dup size
|
|
temp share != while
|
|
2drop again ]
|
|
swap
|
|
say "Cards:" cr
|
|
witheach echocard
|
|
cr
|
|
say "Sets:" cr
|
|
witheach
|
|
[ witheach echocard cr ]
|
|
drop
|
|
temp release ] is task ( n n --> )
|
|
|
|
basic task
|
|
cr
|
|
advanced task
|