day2/repeats.TXT


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

\START92\
\COMMENT=Single file dated Thu Dec  4 00:10:23 20
\NAME=repeats
\FILE=day2.repeats.92f
(s,i)
Func
Local j,t
If i=1 Then
 Return s
ElseIf i=2 Then
 Return s&s
ElseIf i=3 Then
 Return s&s&s
ElseIf mod(i,2)=1 Then
 floor(i/2)\->\j
 repeats(s,j)\->\t
 Return t&t&s
EndIf
repeats(s,i/2)\->\t
Return t&t

EndFunc

\STOP92\