nbillard
/
C_TP_Forth
Watch 1
Star 1
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Résultat du TP en C sur Forth
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
Tree: 017af25717
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '017af25717'
${ noResults }
C_TP_Forth/test.sh

test.sh 1.0KB
History Raw

123456789101112131415161718192021222324 
  1. #!/usr/bin/env bash

  2. 

  3. set -x

  4. ./main '3 5 + . CR'

  5. ./main '3 5 + 4 2 - .S CR'

  6. ./main '3 5 + 4 2 - * . CR'

  7. ./main '1 +'

  8. ./main '1 2 + DUP * . CR'

  9. ./main '1 2 DROP . CR'

  10. ./main '2 3 SWAP - . CR'

  11. ./main '3 2 1 ROT .S CR'

  12. ./main '." Bonjour tout le monde " CR'

  13. ./main '." hello world 3 DUP pouet " CR'

  14. ./main '1 2 . . CR'

  15. ./main '1 2 3 .S CR DROP .S CR DROP .S CR'

  16. ./main '." le carré de trois est " 3 DUP * . CR'

  17. ./main '19 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'

  18. ./main '12 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'

  19. ./main '18 DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN CR'

  20. ./main '10 DUP BEGIN SWAP DUP BEGIN ." * " 1 - UNTIL DROP CR SWAP 1 - UNTIL'

  21. ./main ': CARRE DUP * ; : CUBE DUP CARRE * ; ." Le cube de 5 est " 5 CUBE . CR'

  22. ./main ': MAJEUR DUP 18 < IF ." mineur " ELSE 18 = IF ." 18 ans " ELSE ." majeur " THEN THEN ; 2 MAJEUR CR'

  23. ./main ': ETOILE ." * " ; : LIGNE DUP BEGIN ETOILE 1 - UNTIL DROP ; : TRIANGLE BEGIN LIGNE 1 - CR UNTIL ; 10 TRIANGLE'

  24. set +x