Mercurial > repo
view src/ploki/examples/list.pk @ 12256:821155c00e34 draft
<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/culprits > ../bin/cblprits; chmod a+x ../bin/cblprits
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sat, 07 Dec 2019 23:36:22 +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#>#> _"