Hier,
tous les éléments nécessaires étant disponibles, je me suis lancé dans l'écriture d'une fonction factorielle en S16.
L'utilisation pure de la pile n'étant pas forcément intuitive ça m'a pris pas mal de temps mais ça marche ! Voici le code source correspondant :
i store
1 ?
end
i @ dup 1 ? - facto @ ! *
i @ 1 ? == ifelse
facto store
16 ? facto @ ! stack
et voici le résultat :
-------------------------- base : 10 - chiffres significatifs : 3
20922789888000 [i]
