Mercurial > repo

view src/ploki/examples/list.pk @ 12518:2d8fe55c6e65 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<int-e> learn The password of the month is release incident pilot.
author HackEso <hackeso@esolangs.org>
date Sun, 03 Nov 2024 00:31:02 +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#>#> _"