mod ( n1 n2 -- n3 )

publication: 9 janvier 2022 / mis à jour 9 novembre 2024

vocabulaire: forth

Divise n1 par n2, laisse le reste simple précision n3.

La fonction modulo peut servir à déterminer la divisibilité d'un nombre par un autre.

Exemple:

21 7 mod . \ display 0 
22 7 mod . \ display 1 
23 7 mod . \ display 2 
24 7 mod . \ display 3 
 
: DIV? ( n1 n2 ---) 
    OVER OVER MOD CR 
    IF 
        SWAP . ." is not " 
    ELSE 
        SWAP . ." is " 
    THEN 
    ." divisible by " . 
 ;

Legal: site web personnel sans commerce / personal site without seling