18 lines
432 B
Plaintext
18 lines
432 B
Plaintext
main:(
|
|
REAL r=exp(pi)-pi;
|
|
print((r,newline));
|
|
printf(($g(-16,4)l$,-r));
|
|
printf(($g(-16,4)l$,r));
|
|
printf(($g( 16,4)l$,r));
|
|
printf(($g( 16,4,1)l$,r));
|
|
printf(($-dddd.ddddl$,-r));
|
|
printf(($-dddd.ddddl$,r));
|
|
printf(($+dddd.ddddl$,r));
|
|
printf(($ddddd.ddddl$,r));
|
|
printf(($zzzzd.ddddl$,r));
|
|
printf(($zzzz-d.ddddl$,r));
|
|
printf(($zzzz-d.ddddedl$,r));
|
|
printf(($zzzz-d.ddddeddl$,r));
|
|
printf(($4z-d.4de4dl$,r))
|
|
)
|