2026-02-08 14:18:53 +00:00
|
|
|
|
pac <20> <00>S<><03> S <00>i=1 <00>9 :<3A><>i,0 ;" ..............":<3A>i:<3A>p=22562 "X :<3A>x=1
s <00>a:<3A>b:<3A>b( )=<3D>a(g,(g-p<0 ))+<2B>a(g,-(g-p>0 )):<3A>1 ,8 ,2 ,3 ,2 ,4 ,2
U <00>a<EFBFBD><61><EFBFBD>a,b;" ";<3B>a,17 -b;" ";<3B>10
|
2026-02-07 22:01:44 +00:00
|
|
|
|
-a,b;" ";<3B>10
|
2026-02-08 11:56:44 +00:00
|
|
|
|
-a,17 -b;" ":<3A>2
d <00>g=22831 /Y :<3A>z=4 :<3A>22689 <00>X ,129 <00> :<3A>22704 <00>X ,129 <00> :<3A>s=1 <00>85 U <00>0
I <00>k$=<3D>:<3A>n=<3D>a(p,(32 *(k$="d"))-(32 *(k$="e"))-(k$="o")+(k$="p"))
^ <00>b=(b*<2A>n)+n:<3A>p,0 :<3A>q=<3D>(p+b):<3A>p=p+b*(q<>56 8 ):<3A>6 ,3 ,8 ,4 ,2
W <00>p=p+(-14 *b*(q>99 c )):<3A>q=<3D>p:<3A>p,54 6 :<3A>g,z:<3A>j=g-p:<3A>4 ,4 ,4
a <00>j=<3D>a(g,32 *(j<-18 ))+<2B>a(g,-32 *(j>18 )):<3A>j=0 <00><>j=<3D>b():<3A>5 ,4
> <00>x=j-(x*<2A>j):<3A>g=g+x:<3A>z=<3D>g:<3A>g,40 ( :<3A>z=54 6 <00>q=40 ( <00><>
|
2026-02-08 14:18:53 +00:00
|
|
|
|
o <00>s=s+1 *(q=4 ):<3A>s:<3A>:<3A>a(l ,n )=n*(<28>(l+n)<29>56 8 ):<3A>6 ,4 ,8 ,0 ,0
<0A>
|
