Mercurial > repo
view src/ploki/examples/list.pk @ 6945:c7466b5b4d6c
<oerjan> le/rn !/! is a syntax used in Haskell and Prolog for solving evaluation order problems.
author | HackBot |
---|---|
date | Wed, 24 Feb 2016 05:50:05 +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#>#> _"