CHatingPython
a1e43576cc
This commit does not work and I am so down I don't even bother committing to conventional commits until I fix this mess.
38 lines
394 B
Plaintext
38 lines
394 B
Plaintext
type arr = array $s8 10
|
|
|
|
func println $arr = native println
|
|
|
|
public func main = #main
|
|
main:
|
|
array $arr
|
|
dup
|
|
store %0
|
|
|
|
lenof
|
|
push $s32 1
|
|
sub
|
|
store %1
|
|
|
|
push $s32 0
|
|
loop:
|
|
dup
|
|
load %1
|
|
eq
|
|
jnz #end
|
|
body:
|
|
dup
|
|
load %0
|
|
swap
|
|
push $s8 69
|
|
set
|
|
|
|
push $s32 1
|
|
add
|
|
|
|
jmp #loop
|
|
end:
|
|
drop
|
|
load %0
|
|
call $arr println
|
|
ret
|