Mercurial > repo

view src/ploki/examples/list.pk @ 12296:042127c1c142 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> ` rm /hackenv/bin/bfi; ln -s /hackenv/lib/kps/bfi /hackenv/bin/bfi # no need for actual copies that you can forget to delete though
author HackEso <hackeso@esolangs.org>
date Sat, 04 Jan 2020 13:28:36 +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#>#> _"