Look-and-say sequence: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add ABC |
Added Uiua solution |
||
Line 5,612: | Line 5,612: | ||
11131221131211131231121113112221121321132132211331222113112211 |
11131221131211131231121113112221121321132132211331222113112211 |
||
311311222113111231131112132112311321322112111312211312111322212311322113212221 |
311311222113111231131112132112311321322112111312211312111322212311322113212221 |
||
</pre> |
|||
=={{header|Uiua}}== |
|||
As noted on the [https://rosettacode.org/wiki/Run-length_encoding Run-length encoding page], this is just RLE gone bad. |
|||
<syntaxhighlight lang="uiua"> |
|||
Rle ← /◇⊂≡⍚(⊂⊃(°⋕⧻|⊢))⊜□⊸(+1⊛) |
|||
⇌[⍥(⍚Rle.)10□] "1" |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
{"1" "11" "21" "1211" "111221" "312211" "13112221" "1113213211" "31131211131221" "13211311123113112211" "11131221133112132113212221"} |
|||
</pre> |
</pre> |
||