4223
|
1 #!../ploki
|
|
2 NEXT main
|
|
3
|
|
4 FOR join LEET s ""
|
|
5 LEET i 0
|
|
6 IF i < @LENGTH (\@ . 1)
|
|
7 LET s \@ . 1 . 0
|
|
8 LET i i+1
|
|
9 FOR join-loop IF i < @LENGTH (\@ . 1)
|
|
10 LET s s _ (\@ . 0) _ (\@ . 1 . i)
|
|
11 LET i i+1
|
|
12 NEXT join-loop
|
|
13 FI
|
|
14 FI
|
|
15 KTHX s
|
|
16
|
|
17 FOR map LEET r #<#>
|
|
18 LEET i 0
|
|
19 FOR map-loop IF i < @LENGTH (\@ . 1)
|
|
20 LET r r _ #<(\@ . 0 . (\@ . 1 . i))#>
|
|
21 LET i i+1
|
|
22 NEXT map-loop
|
|
23 FI
|
|
24 KTHX r
|
|
25
|
|
26 FOR main LET list #<1 -2 3 52#>
|
|
27 @join #<" " @map #<@OMFG(\@ * 2) list#>#> _"
|