16 lines
453 B
Text
16 lines
453 B
Text
F subleq(&a)
|
||
V i = 0
|
||
L i >= 0
|
||
I a[i] == -1
|
||
a[a[i + 1]] = :stdin.read(1).code
|
||
E I a[i + 1] == -1
|
||
print(Char(code' a[a[i]]), end' ‘’)
|
||
E
|
||
a[a[i + 1]] -= a[a[i]]
|
||
I a[a[i + 1]] <= 0
|
||
i = a[i + 2]
|
||
L.continue
|
||
i += 3
|
||
|
||
subleq(&[15, 17, -1, 17, -1, -1, 16, 1, -1, 16, 3, -1, 15, 15, 0, 0, -1, 72,
|
||
101, 108, 108, 111, 44, 32, 119, 111, 114, 108, 100, 33, 10, 0])
|