蜜蝋、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を上方に回転させ、gstack g
の最上位の値を読み取り、それをbee(命令ポインター)の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'-<
必要に応じて、詳細な説明が後に続きます。たぶんアニメーションで。