8 lines
226 B
Text
8 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 ]
|