1
2
3
4
USING: formatting kernel math sequences ;
IN: fibonacci-example
 
"1\n" printf

1
2
3
4
5
USING: io kernel math math.parser ;
 
readln string>number
number>string 5 *
number>string print

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
readln srting> a
b eq? a
a
b
*
3
*
b
 ...

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
readln string>number a
sq
3
*
a
-
2
 ...

1
2
3
4
5
6
7
8
USING: io kernel math math.parser math.private  ;
 
readln string>x
*(x x -- ans)
*(ans 3 -- ans1)
-(ans1 number -- ans2)
/(ans2 2 -- ret)
ret>string print

1
2
3
4
5
USING: io kernel math math.parser ;
 
readln string>number
3*
number>string print

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser sequences ;
IN: B
 
: toBinary ( n -- )
  0 >
  dup
  dup
  2 /
  2 *
 ...

1
2
3
4
5
USING: io kernel math math.parser ;
 
readln string>number
number>string *
number>string print

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
   readln string>number
   dup
   dup
   3
   *
   *
   number>string print

1
2
3
4
5
6
7
8
9
USING: formatting kernel math sequences math.parser io ;
IN: m0stik
 
readln string>number
dup
dup
3 * * 
swap
-
 ...

1
2
3
4
5
6
7
USING: io kernel math math.parser ;
 
readln string>number
 
dup *
 
print

1
2
3
4
5
6
7
8
9
readln srting> a
b eq? a
a
b
*
3
*
b
+

1
2
3
4
5
6
7
8
9
readln srting> a
b eq? a
a
b
*
3
*
b
+

1
2
3
4
5
6
7
8
9
USING: formatting kernel math sequences math.parser ;
IN: m0stik
 
readln string>number
dup
dup
3 * * 
swap
-
 ...

1
2
3
4
5
6
7
USING: io kernel math math.parser ;
 
readln string>number
 
dup *
 
print

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
   readln string>number
   dup
   dup
   3
   *
   *
   swap
 ...

1
2
3
4
5
USE: io 
IN: hello-world   
 
: hello ( -- ) 2 5 * print ;   
 MAIN: hello

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
IN: factorial-example
 
: modulo ( n -- n! )
 dup
 2
 /
 2
 ...

1
2
3
4
5
USING: io kernel math math.parser ;
 
readln string>number
string>number string>number *
number>string print

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: funn-example
 
:: fun ( n -- ) 
  3 n n * * n - 2 / :> ans
ans
 number>string print
      
;
 ...

1
2
3
4
5
6
7
8
USING: io kernel math math.parser ;
 
readln string>number
*
dup
*
dup
.

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
IN: factorial-example
 
: modulo ( n -- n! )
 dup
 2
 /
 2
 ...

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: funn-example
 
:: fun ( n -- ) 
  3 n n * * n - 2 / :> ans
ans
 number>string print
      
;
 ...

1
2
3
4
5
USING: io kernel math math.parser ;
 
readln string>number
utf8 encode
number>string print

1
2
3
4
5
6
USING: io kernel math math.parser ;
 
readln string>number
string>number
*
number>string print

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser ;
 
   readln string>number
   dup
   dup
   3
   *
   *
   swap
 ...

1
2
USING: io;
readln string>number dup sq 3 * - 2 / .

1
2
3
4
5
6
7
USING: io kernel math math.parser ;
 
readln string>number
*
dup
*
dup

1
"Hello" [ CHAR: a == ] all? .

1
2
3
4
5
6
7
8
USING: io kernel math math.parser math.private  ;
 
readln string>number
*(number number -- ans)
*(ans 3 -- ans1)
-(ans1 number -- ans2)
/(ans2 2 -- ret)
ret>string print