Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
17
Task/Semordnilap/8th/semordnilap.8th
Normal file
17
Task/Semordnilap/8th/semordnilap.8th
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
[] 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue