15 lines
190 B
Text
15 lines
190 B
Text
floyd(5)
|
|
floyd(14)
|
|
|
|
floyd(n)=
|
|
k = 0
|
|
> r, 1..n
|
|
s = ""
|
|
> j, 1..r
|
|
k += 1
|
|
f = ">"+#.upper(#.log10((n-1)*n/2+j+1)+1)+">"
|
|
s += #.str(k,f)
|
|
<
|
|
#.output(s)
|
|
<
|
|
.
|