1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
int main()
{
 
    int sze = 0;
    int k = 0; 
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
int main()
{
 
    int sze = 0;
    int k = 0; 
 ...

1
2
3
4
5
6
7
8
9
12
3
5
6
45
42
45
6
7
 ...

1
2
3
4
5
6
7
8
1
3
412
45
6
42
964
3

1
2
3
4
5
6
7
8
9
: imprime
 
                depth 0 max maxdepth-.s @ min dup 0
                ?DO   dup i - pick . cr
                LOOP drop ;
 
 
: carregador
 
 ...

1
2
3
: row { Y X N } Y N - abs  X N - abs  + N = if [char] * else bl then  emit ;
: main { N } N 2* 1+ { R } R R * 0 do  I R /mod  over 0= if cr then  N row loop ;
32 main

1
2
3
: row { Y X N } Y N - abs  X N - abs  + N = if [char] * else bl then  emit ;
: do { N } N 2* 1+ { R } R R * 0 do  I R /mod  over 0= if cr then  N row loop ;
6 do

1
2
3
: row { Y X N } Y N - abs  X N - abs  + N <= if [char] * else bl then  emit ;
: <> { N } N 2* 1+ { R } R R * 0 do  I R /mod  over 0= if cr then  N row loop ;
6 <>

1
2
3
 
 
333 .

1
2
3
4
5
6
7
#include <stdio.h>
int main(int argc, char *argv[])
{
        printf("Hello World!");
        getchar();
        return 0;
}

1
2
3
4
5
6
7
8
9
#include <string>
#include <iostream>
 
int main()
{
        std::string s = "abcd";
        std::string s2 = "abcde";
        int i = std::strncmp(s.c_str(), s2.c_str(), 4);
        std::cout << i << std::endl;

1
2
3
4
5
6
7
8
9
#include <string.h>
#include <iostream>
 
int main()
{
        std::string s = "abcd";
        std::string s2 = "abcde";
        int i = std::strncmp(s.c_str(), s2.c_str(), 4);
        std::cout << i << std::endl;

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <string.h>
#include <iostream>
 
int main()
{
        std::string s = "abcd";
        std::string s2 = "abcde";
        int i = strncmp(s.c_str(), s2.c_str(), 4);
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <string.h>
#include <iostream>
 
int main()
{
        std::string s = "abcd";
        std::string s2 = "abcde";
        std::cout << strncmp(s.c_str(), s2.c_str(), 4);

1
2
3
4
5
6
7
8
9
: HELLO
." Hello world" CR
;
 
: 5HELLO
5 0 DO HELLO LOOP
;
 
5HELLO

1
2
3
4
5
: HELLO
." Hello world" CR
;
 
HELLO

1
2
3
4
5
6
7
8
: echo ( -- )
         begin
        next-arg 2dup 0 0 d<> while
            type space
         repeat
         2drop ;
     
     echo cr hello world

1
2
3
4
5
6
7
8
: echo ( -- )
         begin
        next-arg 2dup 0 0 d <> while
            type space
         repeat
         2drop ;
     
     echo hello world

1
2
3
4
5
6
7
8
: echo ( -- )
         begin
        next-arg 2dup 0 0 d<> while
            type space
         repeat
         2drop ;
     
     echo hello world

1
2
3
4
5
6
7
8
: echo ( -- )
         begin
        next-arg 2dup 0 0 d<> while
            type space
         repeat
         2drop ;
     
     echo cr bye

1
2
3
: foo begin pad dup 80 stdin read-line throw dup while \
      type repeat ; foo bye 
     head

1
2
3
: foo begin pad dup 80 stdin read-file throw dup while \
      type repeat ; foo bye 
     head

1
2
3
: foo begin pad dup 80 stdin read-file throw dup while \
      type repeat ; foo bye"|
     head

1
2
3
4
 
     gforth -e ": foo begin pad dup 80 stdin read-file throw dup while \
      type repeat ; foo bye"|
     head

1
2
3
4
cat startup.fs |
     gforth -e ": foo begin pad dup 80 stdin read-file throw dup while \
      type repeat ; foo bye"|
     head

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

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

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

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

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