mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
5 lines
157 B
Plaintext
5 lines
157 B
Plaintext
|
1/1: Building RLE (RLE.idr)
|
||
|
RLE> uncompress Empty = Val []
|
||
|
uncompress (Run n x rest) = let Val ys = uncompress rest in Val (rep n x ++ ys)
|
||
|
RLE> Bye for now!
|