1
2
3
4
5
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
readln string>number
iota [ [ "%d " printf ] ] each

1
2
3
4
5
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
readln string>number
iota [ dup [ "%d " printf ] ] each

1
2
3
4
5
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
readln string>number
iota [ dup [ i "%d " printf ] ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  iota "%d " printf
;
readln string>number
[ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  iota "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- j )
  i "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- 0 )
  i "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( 0 -- i )
  i "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
10 iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
i [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
[ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
iota [ dup loop ] each

1
2
3
4
5
6
7
8
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
:: loop ( i -- )
  i "%d " printf
;
readln string>number
n iota [ dup loop ] each

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: main
"Hello, World" printf
:: loop ( i -- )
  i "%d " printf
;
 
readln string>number
loop

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: main
"Hello, World" printf
:: loop ( i -- )
  "%d " i printf
;
 
readln string>number
loop

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: main
"Hello, World" printf
:: loop ( i -- )
  i printf
;
 
readln string>number
loop

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: quadratic-example
 
:: quadratic-equation ( a b c -- )
    a 0 =
    [ "Not a quadratic equation." printf ]
    [ b sq a c * 4 * - :> d 
      b neg a 2 * / :> x0
      d sqrt a 2 * / :> sd
 ...

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: quadratic-example
 
:: quadratic-equation ( a b c -- )
    a 0 =
    [ "Not a quadratic equation." printf ]
    [ b sq a c * 4 * - :> d 
      b neg a 2 * / :> x0
      d sqrt a 2 * / :> sd
 ...

1
2
3
4
5
6
7
8
USING: formatting kernel math sequences ;
IN: factorial-example
 
: factorial ( n -- n! )
    iota 1 [ 1 + * ] reduce ;
 
17 iota
[ dup factorial "%d! = %d\n" printf ] each

1
2
3
USING: io formatting kernel strings math sequences ;
"Hello, World!" write
readln string>number

1
2
3
4
5
USING: kernel io strings math ;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io strings math ;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io string math ;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io, string, math ;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USE: io
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io ;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USE: io;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
USING: io;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number