fork download
  1. :: quadratic-equation ( a -- )
  2. a:>b
  3. a a * :> c
  4. b 3 * a + :> d
  5. d > string print
  6. ;
  7.  
  8. readln string>number
  9. quadratic-equation
Runtime error #stdin #stdout 0.18s 159232KB
stdin
2
stdout
./prog.factor

1: :: quadratic-equation ( a -- )
     ^
No word named “::” found in current vocabulary search path