24 linhas
1 KiB
Bash
Arquivo executável
24 linhas
1 KiB
Bash
Arquivo executável
#!/usr/bin/env bash
|
|
|
|
set -x
|
|
./main '3 5 + . CR'
|
|
./main '3 5 + 4 2 - .S CR'
|
|
./main '3 5 + 4 2 - * . CR'
|
|
./main '1 +'
|
|
./main '1 2 + DUP * . CR'
|
|
./main '1 2 DROP . CR'
|
|
./main '2 3 SWAP - . CR'
|
|
./main '3 2 1 ROT .S CR'
|
|
./main '." Bonjour tout le monde " CR'
|
|
./main '." hello world 3 DUP pouet " CR'
|
|
./main '1 2 . . CR'
|
|
./main '1 2 3 .S CR DROP .S CR DROP .S CR'
|
|
./main '." le carré de trois est " 3 DUP * . CR'
|
|
./main '19 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'
|
|
./main '12 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'
|
|
./main '18 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'
|
|
./main '10 DUP BEGIN SWAP DUP BEGIN ." * " 1 - UNTIL DROP CR SWAP 1 - UNTIL'
|
|
./main ': CARRE DUP * ; : CUBE DUP CARRE * ; ." Le cube de 5 est " 5 CUBE . CR'
|
|
./main ': MAJEUR DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN ; 2 MAJEUR CR'
|
|
./main ': ETOILE ." * " ; : LIGNE DUP BEGIN ETOILE 1 - UNTIL DROP ; : TRIANGLE BEGIN LIGNE 1 - CR UNTIL ; 10 TRIANGLE'
|
|
set +x
|