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 2023-07-22 21:42:12 -07:00
commit 07c7092a52
140 changed files with 2721 additions and 250 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Look-and-say-sequence/Insitux/look-and-say-sequence.insitux Normal file
View file

@ -0,0 +1,9 @@
(function look-and-say n x
(return-when (empty? n) x)
(var digit (0 n)
[before after] ((juxt take-while skip-while) (= digit) n))
(recur after (strn x (len before) digit)))
(var result "1")
(loop 10 i
(print (var! result look-and-say)))