Mercurial > repo
diff src/ploki/examples/list.pk @ 4223:ac0403686959
<oerjan> rm -rf src/ploki; mv ploki src
| author | HackBot |
|---|---|
| date | Fri, 20 Dec 2013 22:18:50 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/ploki/examples/list.pk Fri Dec 20 22:18:50 2013 +0000 @@ -0,0 +1,27 @@ +#!../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#>#> _"