fork download 
  1. USING: formatting io kernel locals math math.functions math.parser ;
  2. IN: quadratic-example
  3.  
  4. :: quadratic-equation ( a -- )
  5.    a 0 =
  6.     [  ]
  7.     [  
  8.       a a * :> c
  9.       c 3 * a - 2 / :> d
  10.       d  "%d" printf 
  11.     ]
  12.     if ;
  13.  
  14.  
  15. readln string>number
  16. quadratic-equation
Success #stdin #stdout 1.32s 164864KB
comments (?)
stdin 
5
stdout 
35
https://ideone.com/1ufnx
language:
Factor (factor-0.93)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!