1
2
3
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains? "%d" printf

1
2
3
4
5
6
7
USING: io kernel regexp.private sequences ;
IN: regexp
: re-replace ( string regexp replacement -- result )
    [ [ subseq ] (re-split) ] dip join ;
 
readln string>
regexp

1
2
3
4
5
6
7
USING: io kernel regexp.private sequences ;
IN: regexp
: re-replace ( string regexp replacement -- result )
    [ [ subseq ] (re-split) ] dip join ;
 
readln string>string
regexp

1
2
3
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains? printf

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 -- )
   a 0 =
    [  ]
    [  
      a a * :> c
      c 3 * a - 2 / :> d
 ...

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

1
2
3
4
5
6
7
USING: kernel regexp.private sequences ;
IN: regexp
: re-replace ( string regexp replacement -- result )
    [ [ subseq ] (re-split) ] dip join ;
 
readln string>string
regexp

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

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: fakt
 
:: fakt ( n -- n )
5 :> d
0 :> s
n d >=
[
s n d 5 / + + :> s
 ...

1
2
3
4
5
6
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
[ "NO" printf ]
[ "YES" printf ]
if

1
2
3
4
5
6
7
8
9
USING: formatting io kernel locals math math.functions math.parser ;
IN: math
MATH: mod ( x y -- z ) foldable flushable
 
IN: template
 
: sum-it ( n -- answer )
   dup 0 =                      ! if
   [ ]                          ! zero in stack
 ...

1
2
3
4
5
USING: kernel io regexp sequences unicode.case ;
 
readln R/ [^a-zA-Z]+/ re-split
[ >title ] map
"" join print

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

1
2
3
4
5
6
7
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
0 =
[ "NO" printf ]
[ "YES" printf ]
if

1
2
3
4
5
6
7
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
0 =
[ "NO" printf ]
[ "YES" printf ]
if

1
2
3
4
USING: io kernel math math.parser ;
readln string>n
2 /
n > string print

1
2
3
4
5
6
7
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
0 =
[ "YES" printf ]
[ "NO" printf ]
if

1
2
3
4
5
6
7
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
0 =
[ "YES" printf ]
[ "NO" printf ]
if;

1
2
3
4
5
6
7
8
USING: formatting io kernel locals math math.functions math.parser ;
IN: math
MATH: mod ( x y -- z ) foldable flushable
 
readln string>number
2
mod
number>string print

1
2
3
4
USING: io kernel math math.parser ;
readln string>n
2 /
print

1
2
3
4
5
6
7
8
9
USING: io kernel math math.private math.parser formatting sequences prettyprint io.streams.byte-array io.streams.sequence;
 
IN: math
MATH: mod ( x y -- z ) foldable flushable
 
readln string>number
2
mod
number>string print

1
2
3
4
5
6
7
8
9
:: quadratic-equation ( a -- )
  a:>b
  a a * :> c
  b 3 * a + :> d
  d > string print 
;
 
readln string>number
quadratic-equation

1
2
3
4
5
6
7
8
9
:: quadratic-equation ( a -- )
  a:>b
  a a * :> c
  b 3 * a + :> d
  d > string print 
;
 
readln string>number
quadratic-equation

1
2
3
readln string>n
2 /
n print

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
4
USING: kernel io regexp sequences unicode.case ;
readln R/ [^0-9]+/ re-split
[ >title ] map
"" join print

1
2
3
4
5
6
7
USING: formatting kernel io regexp ;
 
readln R/ [^HQ9]+/ re-contains?
0 =
[ "YES" printf ]
[ "NO" printf ]
if

1
2
3
4
USING: kernel io regexp sequences unicode.case ;
readln R/ [^a-zA-Z]+/ re-split
[ >title ] map
"" join print

1
2
3
4
5
USING: io kernel math math.parser ;
 
1
5 [ dup dup + ] times
5 [ println ] times 

1
2
3
4
5
6
7
8
9
USING: io kernel math math.parser formatting sequences prettyprint io.streams.byte-array io.streams.sequence ;
 
IN: template
 
: printbit ( n -- )
    [ 1 ] [ 0 ] if number>string print ;
 
: bits ( n -- )
    0 bit? printbit ;
 ...