Premier pas avec Arrayforth :
documents a lire : http://www.colorforth.com/inst.htm
http://www.greenarraychips.com/home/documents/greg/cf-code-library.htm
Dans
le block 0862 , on peut ecrire le code suivant :
Ensuite faire : 862 load
pour le code swap , invsub , max , min on peut avoir differentes solutions , l'alternative est en blanc .
c'est a dire swap peut s'ecrire :
swap over ;
swap push a! pop a ;
on peut commencer a jouer :
add on a le resultat :
5
pour effacer la pile , taper
C
on va jouer avec la variable var1
stocker une valeur dans une variable :
1 set on a le resultat : var1 1
3 set on a le resultat : var1 3
recuperer une valeur dans une variable ( la derniere ) :
get on a le resultat : 3
pour effacer la pile , taper C
swap : echanger les 2 elements sur la pile
3 2 swap on a le resultat : 2 3
la pile :
swap
rot : faire une rotation entre les 3 elements de la pile
1 2 3 rot on a le resultat : 2 3 1
la pile :
rot
nip : supprimer le second element
1 2 3 nip on a le resultat : 1 3
la pile :
nip
invsub : soustraction 1er element - second
33 11 invsub on a le resultat : -22
la pile :
invsub
on va jouer avec la variable var1
par le biais de jump zero one two
0 example on a le resultat : var1 0
1 example on a le resultat : var1 1
2 example on a le resultat : var1 2
selon la valeur ( 0 1 2) on execute soit zero one two
max : le plus grand entre 1er element et second
3 4 max on a le resultat : 4
la pile :
max
min : le plus petit entre 1er element et second
3 4 min on a le resultat : 3
la pile :
min