1 2 3 4 5 6 7 | 50 constant #num create primeira #num chars allot : sver 1- swap 1+ swap accept ; : input dup #num sver swap c! ; : imprime$ count type ; : equal begin primeira input primeira <> 42 while drop repeat imprime$ primeira ; equal |
NTAgY29uc3RhbnQgI251bQpjcmVhdGUgcHJpbWVpcmEgI251bSBjaGFycyBhbGxvdAo6IHN2ZXIgMS0gc3dhcCAxKyBzd2FwIGFjY2VwdCA7CjogaW5wdXQgZHVwICNudW0gc3ZlciBzd2FwIGMhIDsKOiBpbXByaW1lJCBjb3VudCB0eXBlIDsKOiBlcXVhbCBiZWdpbiBwcmltZWlyYSBpbnB1dCBwcmltZWlyYSA8PiA0MiAgd2hpbGUgZHJvcCByZXBlYXQgaW1wcmltZSQgcHJpbWVpcmEgOyAKZXF1YWw=
-
upload with new input
-
result: Success time: 0.01s memory: 7504 kB returned value: 1
12 55 96 42
in file included from *OS command line*:-1 prog.4th:7: Stack underflow >>>equal<<< Backtrace: $B71D08A4 <>
-
result: Success time: 0.01s memory: 7504 kB returned value: 0



