Mercurial > repo
view src/ploki/examples/list.pk @ 12355:edf365a97e1c draft
<b_jonas> learn The password of the month is wake these token brings
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Tue, 01 Dec 2020 18:12:07 +0000 |
parents | ac0403686959 |
children |
line wrap: on
line source
#!../ploki NEXT main FOR join LEET s "" LEET i 0 IF i < @LENGTH (\@ . 1) LET s \@ . 1 . 0 LET i i+1 FOR join-loop IF i < @LENGTH (\@ . 1) LET s s _ (\@ . 0) _ (\@ . 1 . i) LET i i+1 NEXT join-loop FI FI KTHX s FOR map LEET r #<#> LEET i 0 FOR map-loop IF i < @LENGTH (\@ . 1) LET r r _ #<(\@ . 0 . (\@ . 1 . i))#> LET i i+1 NEXT map-loop FI KTHX r FOR main LET list #<1 -2 3 52#> @join #<" " @map #<@OMFG(\@ * 2) list#>#> _"