Mercurial > repo

view src/ploki/examples/list.pk @ 5829:a062ac5f3fc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> addquote <Jafet> Some people, when confronted with a problem, think "I know, I\'ll use the Banach-Tarski theorem."
author HackBot
date Sat, 11 Jul 2015 03:47:27 +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#>#> _"