21 lines
482 B
Plaintext
21 lines
482 B
Plaintext
[ $ "BOXKDQCPNAGTRETGQDFS"
|
|
$ "JWHUVIANOBERFSLYPCZM"
|
|
join ] constant is blocks ( --> $ )
|
|
|
|
[ -2 &
|
|
tuck pluck drop
|
|
swap pluck drop ] is remove2 ( $ n --> $ )
|
|
|
|
[ iff [ say "True" ]
|
|
else [ say "False" ] ] is echotruth ( b --> )
|
|
|
|
[ true blocks rot
|
|
witheach
|
|
[ upper over find
|
|
2dup swap found
|
|
iff remove2
|
|
else
|
|
[ drop dip not
|
|
conclude ] ]
|
|
drop echotruth ] is can_make_word ( $ --> )
|