1
2  4 + .

1
words

1
words

1
2
3
4
5
6
7
8
9
VARIABLE FOO
VARIABLE BAR
 
: FOOBAR
        BAR @
        FOO @
        BAR !
        FOO !
;
 ...

1
2
3
: hola 2 3 + . ;
 
hola

1
2
3
4
5
6
7
8
9
\ gforth source code for speed test
\                                                       mmihai, sept '04
\

100 floats allocate throw
constant farray
 
: init_farray
    0e0
 ...

1
2
3
15 SPACES
: STAR 42 EMIT;
2 STAR

1
2
: HELLO  ( -- )  CR ." Hello, world!" ; HELLO <cr>
Hello, world!

1
CR .( Hello, world!)

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
: place
 
over
over
 
>r
>r
char+
swap
 ...

1
2
3
4
5
6
7
8
9
S" MAX-N" ENVIRONMENT? \ query environment
[IF] \ if successful
NEGATE 1- CONSTANT (ERROR) \ create constant (ERROR)
[THEN]
: number 0. Rot dup 1+ c@ [char] - = >r count r@ if 1 /string
then >number nip 0= if d>s r> if negate then else r> drop
2drop (error) then ;
 
: test
 ...

1
2
3
4
5
6
7
8
9
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name #name accept \ input string
name 1+ swap type cr \ swap count and print
 
: saccept 1- swap 1+ swap accept ; \ define safe ’ACCEPT’
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name #name saccept \ input string

1
2
3
4
5
6
7
8
9
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name #name accept \ input string
name 1+ swap type cr \ swap count and print
 
: saccept 1- swap 1+ swap accept ; \ define safe ’ACCEPT’
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name dup #name saccept \ input string

1
2
3
4
5
6
7
8
9
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name #name accept \ input string
name 1+ swap type cr \ swap count and print
 
: saccept 1- swap 1+ swap accept ; \ define safe ’ACCEPT’
64 constant #name \ length of string
create name #name chars allot \ define string ’name’
name #name saccept \ input string

1
2
3
4
5
6
7
8
9
S" MAX-N" ENVIRONMENT? \ query environment
[IF] \ if successful
NEGATE 1- CONSTANT (ERROR) \ create constant (ERROR)
[THEN]
: number ( a -- n)
0. Rot dup 1+ c@ [char] - = >r count r@ if 1 /string then >number nip
 
0= if d>s r> if negate then else r> drop 2drop (error) then ;
: input# ( -- n)
 ...

1
2
3
4
5
: test
11 1 do i . cr loop
;
 
test

1
2
3
4
5
6
7
8
 : teste
        if ."Verdadeiro"
                else ."Falso"
        endif;
0 1 = teste
4 5 < teste
0 teste
1 teste

1
2
3
4
5
6
7
8
9
: accept ( dir N -- n )
 0 -rot \ pone un contador a 0 en la base
 0 ?do \ inicia bucle
 key dup 13 = \ lee tecla
 if \ comprueba si es INTRO
 drop leave \ si lo es, salir
 else
        dup emit
 over c! \ almacenar valor en direccion
 ...

1
2
3
4
5
6
7
8
9
: accept ( dir N -- n )
 0 -rot \ pone un contador a 0 en la base
 0 ?do \ inicia bucle
 key dup 13 = \ lee tecla
 if \ comprueba si es INTRO
 drop leave \ si lo es, salir
 else
 over c! \ almacenar valor en direccion
 1+ swap \ incrementar direccion
 ...

1
2
3
4
5
6
7
8
public class mencariRata2 
  {   public static void main(String[]args)
        {
                int angka1, angka2, angka3;
                angka1=10;
                angka2=20;
                angka3=45;
                int rata2=(angka1+angka2+angka3)/3;
 ...

1
3 5 +

1
2
3
4
5
6
7
8
9
: saccept 1- swap 1+ swap accept ;
 
64 constant #name 
 
create stringPrincipal #name chars allot
create substring #name chars allot
 
: compara stringPrincipal count substring count search ;
 
 ...

1
2
: hello ( -- )   ." Hello, World!" CR ;
hello

1
2
: hello ( -- )   ." Hello, World!" CR ;
hello

1
MessageBox.Show("hola");