aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Semordnilap/ArkScript/semordnilap.ark Normal file
View file

@ -0,0 +1,14 @@
(import std.IO)
(import std.String)
(import std.Dict)
(import std.List)
(let words (string:split (io:readFile "tests/unittests/resources/RosettaSuite/res/unixdict.txt") "\n"))
(let d (dict))
(list:forEach words (fun (word) (dict:add d word true)))
(let keep (list:filter words (fun (word)
(and (< word (string:reverse word)) (not (nil? (dict:get d (string:reverse word))))))))
(print (len keep))
(print (list:slice keep 0 5 1))