蜂蜡,119 113字节
ph0`J2[`}ghq'-<gh0N}`0`}gN`/o\`Ngh0`J`<
>g}`o`}N` `0>'d`0 `N`/ \`0hg>-'phg}`[2`b
dF1f+5~Zzf(.FP9f..F3_# d <
程序重要部分的说明:
left to right right to left
3FBf or fBF3 27 ASCII code for (esc)
3 [x,x,3]• set lstack 1st to 3
F [3,3,3]• set lstack to 1st
B [3,3,27]• 1st=1st^2nd
f push lstack 1st on gstack
——————
9PF.(f or f(.FP9 102400 counter to roughly match a wait time
of 1 s on my i5 2410M Laptop
9 [x,x,9]• set lstack 1st to 9
P [x,x,10]• increment 1st
F [10,10,10]• set lstack to 1st
. [10,10,100]• 1st=1st*2nd
( [10,10,102400]• 1st=1st<<2nd (100<<10=102400, arithmetic shift left)
f push lstack 1st on gstack
——————
zZ~5+f or f+5~Zz 95 ASCII for '_'
z [0,0,0]• initialize lstack to zero
Z [0,0,90]• get value from relative coordinate (0,0),
which is the location of `Z` itself, ASCII(Z)=90
~ [0,90,0]• flip 1st and 2nd lstack values
5 [0,90,5]• set lstack 1st to 5
+ [0,90,95]• 1st = 1st+2nd
f push lstack 1st on gstack
在f
的上推gstack(全球栈),以供日后使用的值。这些值可通过0gh
(或镜像的hg0
)和hg
(gh
)指令访问。h
向上旋转gstack,g
读取gstack 的最高值,并将其推入蜜蜂的lstack(本地堆栈)(指令指针)。
}`o`}N` 0 `N`/ \` sequence to print the standing man
N`\o/`Ng}`0`}N sequence to print the jumping man
}`[2J` equivalent to the ANSI escape sequence (esc)[2J
to clear the screen
>-'p or >-'q or > p loop for counting down (wait 1 s)
d < b < d'-<
如果需要,稍后将进行详细说明。也许有动画。