1
: foo begin pad dup 10 stdin read-line throw dup while type repeat drop ;  

1
: foo begin pad dup 10 stdin read-line throw dup while type repeat drop;  

1
: foo begin pad dup 10 stdin read-line throw dup while type repeat;  

1
2
3
4
5
6
7
8
: imprime . cr ;
: imprimindo depth 0 do imprime loop ;
: equal begin dup 42 <> while drop repeat drop imprimindo ;
equal
2
3
4
5

1
2
3
4
5
6
7
8
: imprime . cr ;
: imprimindo depth 0 do imprime loop ;
: equal begin dup 42 <> while drop repeat drop imprimindo ;
equal
2
3
4
5

1
2
3
4
5
6
7
: imprime . cr ;
: imprimindo depth 0 do imprime loop ;
: equal begin dup 42 <> while drop repeat drop imprimindo ;
2
3
4
5

1
2
3
4
5
6
7
: imprime . cr ;
: imprimindo depth 0 do imprime loop ;
: equal begin dup 42 <> while drop repeat drop imprimindo ;
2
3
4
5

1
2
gforth -e ": foo begin pad dup 10 stdin read-file throw dup while \
      type repeat ; foo bye"

1
2
3
4
5
6
7
50 constant #num
create primeira #num chars allot
: sver 1- swap 1+ swap accept ;
: input dup #num sver swap c! ;
: imprime$ count type ;
: equal begin primeira input primeira <> 42  while drop repeat imprime$ primeira ; 
equal

1
2
3
4
5
6
7
50 constant #num
create primeira #num chars allot
: sver 1- swap 1+ swap accept ;
: input dup #num sver swap c! ;
: imprime$ count type ;
: equal begin primeira input primeira <> 42  while drop repeat imprime$ primeira ; 
equal

1
2
3
4
5
6
50 constant #num
create primeira #num chars allot
: sver 1- swap 1+ swap accept ;
: input dup #num sver swap c! ;
: imprime$ count type ;
: equal begin primeira input primeira <> 42  while drop repeat imprime$ primeira ; 

1
2
3
4
5
6
50 constant #num
create primeira #num chars allot
: sver 1- swap 1+ swap accept ;
: input dup #num sver swap c! ;
: imprime$ count type ;
:equal begin primeira input primeira <> 42  while drop repeat imprime$ primeira ; 

1
2
: square .
 

1
2
3
:square dup *
 
3 square

1
2
3
: square dup *
 
3 square

1
2
3
: square dup *
 
3 square .

1
2
3
4
3
4
+
.

1
2
3
4
3
4
+
.

1
 CR ." Hello, world!" CR

1
1 2 + .

1
1 2 + .

1
2
3
4
5
6
7
8
9
// Informatik - Serie 8 - Aufgabe 81
// Programm: incerse_matrix.cpp
// Autor: Alice Mazzolini
 
 
#include <iostream>
int main()
 
{
 ...

1
2
3
4
5
6
7
8
9
// Informatik - Serie 8 - Aufgabe 81
// Programm: incerse_matrix.cpp
// Autor: Alice Mazzolini
 
 
#include <iostream>
int main()
 
{
 ...

1
1 4 + .

1
2
3
4
5
6
f(double d) {}
 
int main(void) {
  long l;
  f(d);
}

1
2 2 + .

1
2
3
4
5
6
7
#include<stdio.h>
int main()
{
int a=10,b;
b=a++ + ++a;
printf("%d,%d,%d,%d",b,a++,a,++a);
}

1
2
3
4
5
6
7
8
9
S" MAX-N" ENVIRONMENT?
[IF]
NEGATE 1- 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 ;
 
: input#
 ...

1
2
3
4
5
6
7
8
9
S" MAX-N" ENVIRONMENT?
[IF]
NEGATE 1- 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 ;
 
: input#
 ...

1
2
3
4
5
6
7
8
9
: saccept 1- swap 1+ swap accept ;  
64 constant #name \ Define que name sera numero constante 64
 
\ alocar variaveis do tamanho name
create stringPrincipal #name chars allot
create substring #name chars allot
 
\ procura usando o search pela substring dentro da string principal
: compara stringPrincipal count substring count search ;
 ...