17 lines
314 B
Text
17 lines
314 B
Text
[] var, results
|
|
|
|
: processline \ m s --
|
|
clone nip
|
|
tuck s:rev
|
|
m:exists? if
|
|
results @ rot a:push drop
|
|
else
|
|
swap true m:!
|
|
then ;
|
|
|
|
{} "unixdict.txt" app:asset >s
|
|
' processline s:eachline
|
|
|
|
results @ dup a:len . " pairs" . cr
|
|
a:shuffle
|
|
( a:shift dup . " is the reverse of " . s:rev . cr ) 5 times bye
|