9 lines
226 B
Text
9 lines
226 B
Text
|
[ ' [ [ ] ] swap times
|
||
|
|
[ [] i rot witheach
|
||
|
|
[ dup size 1+ times
|
||
|
|
[ 2dup i^ stuff
|
||
|
|
dip rot nested join
|
||
|
|
unrot ] drop ] drop ] ] is perms ( n --> [ )
|
||
|
|
|
||
|
|
4 perms witheach [ echo cr ]
|