1
2
3
4
: square Dup dup ;
2 square .
 
 

1
2
3
: square Dup dup ;
2 square
 

1
2
3
: square.  Dup dup ;
2 square
 

1
See ."

1
4 5 +

1
10 5 - .

1
10 5 -

1
4 5 * .

1
4 .

1
2
3
: fib   dup 2 > if 1- dup recurse swap 1- recurse + else drop 1 then ;
 
10 fib .

1
2
3
: fib   dup 2 > if 1- dup recurse swap 1- recurse + else drop 1 then ;
 
5 fib .

1
2 2 + .

1
2
: test parse-word type ;
test hello

1
2
3
4
5
6
7
8
: /?            mod 0= ;
: /3?           3 /? ;
: /5?           5 /? ;
: /3or5?        dup /3? swap /5? or ;
: 3or5          0 do i /3or5? if i over execute then loop drop ;
 
0 value sum
: accumulate sum + to sum ;
 ...

1
2
3
4
5
6
7
8
: /?            mod =0 ;
: /3?           3 /? ;
: /5?           5 /? ;
: /3or5?        dup /3? swap /5? or ;
: 3or5          0 do i /3or5? if i over execute then loop drop ;
 
0 value sum
: accumulate sum + to sum ;
 ...

1
2
3
4
5
: test 10 0 do i . loop ;
 
test
 
words

1
2
3
: test 10 0 do i . loop ;
 
test

1
: test 10 0 do i . loop ;

1
2 2 * .

1
." Forth is better anyway"

1
10 .

1
2
3
4
5
6
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...

1
2
3
4
5
6
7
8
9
public class ZeByVysledek {
    private int a;
    private int b;
    private int c;
    private int d;
    private int e;
    
    public ZeByVysledek(int e, int d, int c, int b, int a) {
        setA(a);
 ...

1
." Hello, World"

1
2
3
4
5
6
7
8
9
\ ANS Forth, well-factored
 
:noname   dup . ." bottles" ;
:noname       ." 1 bottle"  ;
:noname ." no more bottles" ;
create bottles , , ,
 
: .bottles  dup 2 min cells bottles + @ execute ;
: .beer     .bottles ."  of beer" ;
 ...

1
2
3
4
   int ch;
 
                 ch = getchar();
                 (void) putchar((char) ch);

1
2
3
4
5
6
7
8
9
random.adb                                                                                          0000644 0001750 0001750 00000002756 10777751105 011420  0                                                                                                    ustar   adam                            adam                                                                                                                                                                                                                   
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
package body Random is
 
X_initial : FLOAT_ITEM := 0.0;
M         : FLOAT_ITEM := 1.0;
A         : FLOAT_ITEM := 7.0;
 ...

1
3 5 + .

1
2
3
4
5
6
7
8
9
clc
%       UNIVERSIDAD DE GUADALAJARA
%       Posgrado en Electrónica
%       Método de Simpson 3/8 de segmentos múltiples impares
%       Noviembre de 1997
%       Ing. José Martín Villegas González
%       M.C. J.Gilberto Mateos Súarez
 
echo on
 ...

1
2
3
var a=2;
var b=3;
var c=a*b;