source code clone download copy to clipboard report bug / make suggestion

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

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 2:   hide show   clone   input   544 days 14 hours ago    Success

  result: Success     time: 0.01s    memory: 7504 kB     returned value: 1

  input:

  12
  55
  96
  42

  output:

  stderr:

  in file included from *OS command line*:-1
  prog.4th:7: Stack underflow
  >>>equal<<<
  Backtrace:
  $B71D08A4 <> 

• # 1:   hide show   clone   input   544 days 14 hours ago    Success

  result: Success     time: 0.01s    memory: 7504 kB     returned value: 0