1
words

1
2
3
4
5
USE: math.combinatorics
 
USE: prettyprint
 
5 5 nPk .

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
5
6
7
8
9
                                          : #define :
                                          ;
#define __MAX_COLOR__   6
                                          ; __MAX_COLOR__
 
#define color   __MAX_COLOR__
                                          ; ' max ' color = 5
 
#define cyan    48
 ...

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
5
6
7
8
9
class Main {
public static void main (String [] args){
 
int d ,f,t;
 
d=4;
f = 6 ;
t=f;
t= d+f;
 ...

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
: Hello ( .. )
"hello" print ;
 

1
alexis rapes herself to sleep and she watchs prom every year for the rest of her life

1
2
3
type A = 
    | ConstructorX of dr4dw3dw3yqk
    | ConstructorY of dr4dw3dw3yqk

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

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

1
2
3
4
5
USING: kernel sequences locals io formatting strings math math.functions  ;
IN: main
"Hello, World" print
readln string>number 1 +
iota [ 2 log * exp round "%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 1 +
iota [ 2 log * exp round "%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 1 +
iota [ 2.0 log * exp "%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>float 1 +
iota [ 2 log * exp "%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 1 +
iota [ 2 log * exp "%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 1 +
iota [ exp "%d " printf ] each

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

1
2
3
4
5
6
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
readln string>number 1 +
2 pow
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 1 +
iota [ "%d " printf ] each

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

1
2
3
4
5
6
USING: kernel sequences locals io formatting strings math math.functions math.parser ;
IN: main
"Hello, World" print
readln string>number
1 [ 1 + * ] reduce
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
reduce dup 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
dup reduce 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
reduce 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
inc 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
increase 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
dub increase 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 [ "%d " printf ] each