밀랍 ,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
의 최상위 값을 읽고이를 꿀벌의 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'-<
필요한 경우 나중에 자세히 설명합니다. 애니메이션 일 수도 있습니다.