Mercurial > repo

view src/ploki/examples/list.pk @ 6745:9fa261e3c10e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<zgrep> ` echo \'f=`echo "$1" | sed \'"\'"\'s/ = .*$//\'"\'"\'`;c=`echo "$1" | sed \'"\'"\'s/^.* = //\'"\'"\'`;echo "$c" >> "$f"\' > bin/append
author HackBot
date Wed, 10 Feb 2016 03:38:01 +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#>#> _"