COMMENTAIRE - TOUTES CES PROCEDURES PEUVENT MODIFIER LES BIDONS 1,2,$1 ET $666 COMMENTAIRE - TOUS LES AUTRES NON CHANGES COMMENTAIRE - RETOUR DANS BIDON 1 POUR LES PREDICATS ...-? , QUI NE MODIFIENT RIEN (SAUF 1) COMMENTAIRE - CORVEE INTERVERTION -- in $2,$3 -- intervertit les contenus EMPILER $3 EMPILER $2 VIDER $3 VIDER $2 DEPILER DANS $3 DEPILER DANS $2 FIN INTERVERTION TO-DO-LIST PARTAGE - in $2 - returns $1 = $2 DIV BY 2 - set $666 if odd VIDER LE BIDON DE 1 LITRE VIDER LE BIDON DE $1 VIDER LE BIDON DE $666 LITRES DUPLIQUER-ET-EMPILER LE BIDON DE $2 GPS PARTAGE-ENCORE COMPARER LE BIDON DE $1 ET LE BIDON DE $2 SI EGAL ALLER-A PARTAGE-FINI-0 SI PLUS-GRAND ALLER-A PARTAGE-FINI-1 VIDER LE BIDON DE $2 DANS LE BIDON DE 1 VIDER LE BIDON DE 1 DANS LE BIDON DE $1 ALLER-A PARTAGE-ENCORE GPS PARTAGE-FINI-1 VIDER $1 DANS 1 REMPLIR $666 GPS PARTAGE-FINI-0 VIDER $2 DEPILER DANS LE BIDON DE $2 FIN PARTAGE TO-DO-LIST BIDON-PAIR-? --- IN:$2 -- scrambles nothing -- BIDON 1 = 1 : OK EMPILER $1 FAIRE PARTAGE REMPLIR 1 VERIFIER $666 SI PLEIN VIDER 1 VIDER $1 DEPILER DANS $1 FIN BIDON-PAIR-? TO-DO-LIST MULTIPLICATION -- in $2 & $3 - returns $1 VIDER $1 DUPLIQUER-ET-EMPILER $3 GPS MULTIPLIE-ENCORE VERIFIER $3 SI VIDE ALLER-A MULTIPLICATION-FINIE VIDER LE BIDON 1 VERSER LE BIDON $3 DANS LE BIDON 1 DUPLIQUER-ET-EMPILER $2 DEPILER DANS $1 ALLER-A MULTIPLIE-ENCORE GPS MULTIPLICATION-FINIE DEPILER DANS $3 FIN MULTIPLICATION CORVEE FACTORIELLE REMPLIR 1 VIDER $1 VIDER 1 DANS $1 VERIFIER $2 SI VIDE FIN FACTORIELLE EMPILER $3 EMPILER $2 EMPILER $2 VIDER 1 VIDER $2 DANS 1 CALCULER FACTORIELLE VIDER $2 VIDER $3 VIDER $1 DANS $2 DEPILER DANS $3 FAIRE UNE MULTIPLICATION VIDER $2 DEPILER DANS $2 VIDER $3 DEPILER DANS $3 FIN FACTORIELLE CORVEE RACINE-CARREE - in $2 - out $1 - out 1 : 1 = exact VIDER $1 GPS RACINE-NOMBRE-SUIVANT EMPILER $1 EMPILER $2 VIDER $2 VIDER $3 EMPILER $1 EMPILER $1 DEPILER DANS $2 DEPILER DANS $3 FAIRE UNE MULTIPLICATION VIDER $2 DEPILER DANS $2 COMPARER $1 ET $2 SI PLUS-GRAND ALLER-A RACINE-FINIE-1 SI EGAL ALLER-A RACINE-FINIE-0 VIDER $1 DEPILER DANS $1 REMPLIR 1 VIDER 1 DANS $1 ALLER-A RACINE-NOMBRE-SUIVANT GPS RACINE-FINIE-0 REMPLIR 1 VIDER $1 DEPILER DANS $1 FIN RACINE-CARREE GPS RACINE-FINIE-1 VIDER 1 VIDER $1 DEPILER DANS $1 VIDER $1 DANS 1 VIDER 1 FIN RACINE-CARREE TO-DO-LIST SOUSTRACTION -- in $2 et $3 - returns $1 -- signal impossible in $666 VIDER LE BIDON DE $666 LITRES VIDER $1 COMPARER $2 ET $3 SI MOINS-PLEIN ALLER-A SOUSTRACTION-IMPOSSIBLE SI EGAL FIN SOUSTRACTION VIDER 1 EMPILER $3 EMPILER $2 DEPILER DANS $1 GPS SOUSTRAIRE-ENCORE VERIFIER $3 SI VIDE ALLER-A SOUSTRACTION-TERMINEE VIDER $3 DANS 1 VIDER 1 VIDER $1 DANS 1 VIDER 1 ALLER-A SOUSTRAIRE-ENCORE GPS SOUSTRACTION-TERMINEE DEPILER DANS $3 FIN SOUSTRACTION GPS SOUSTRACTION-IMPOSSIBLE REMPLIR $666 SMS $666 CRIER *SOUSTRACTION-IMPOSSIBLE FIN SOUSTRACTION TO-DO-LIST DIVISION -- in $2 et $3 - returns $1 = $2/$3 - reste dans $666 VERIFIER $3 SI VIDE ALLER-A DIVISION-PAR-0 VIDER $1 EMPILER $2 GPS DIVISER-ENCORE COMPARER $2 ET $3 SI MOINS-PLEIN ALLER-A DIVISION-TERMINEE REMPLIR 1 VIDER 1 DANS $1 EMPILER $1 FAIRE SOUSTRACTION VIDER $2 VIDER $1 DANS $2 DEPILER DANS $1 ALLER-A DIVISER-ENCORE GPS DIVISION-TERMINEE EMPILER $2 VIDER $666 DEPILER DANS $666 VIDER $2 DEPILER DANS $2 FIN DIVISION GPS DIVISION-PAR-0 CRIER *DIVISION-PAR-ZERO-!!!! FIN DIVISION CORVEE EUCLIDE-PGCD -- in $2 et $3 - out PGCD dans $1 EMPILER $2 EMPILER $3 COMPARER $2 $3 SI PLUS-PETIT FAIRE INTERVERTION GPS EUCLIDE-ENCORE VERIFIER $3 SI VIDE ALLER-A EUCLIDE-FINI FAIRE UNE DIVISION VIDER $2 VIDER $3 DANS $2 VIDER $666 DANS $3 ALLER-A EUCLIDE-ENCORE GPS EUCLIDE-FINI VIDER $1 VIDER $2 DANS $1 VIDER $2 VIDER $3 DEPILER DANS $3 DEPILER DANS $2 FIN EUCLIDE-PGCD TO-DO-LIST EST-MULTIPLE-? -- EST-MULTIPLE-? 49 7 EMPILER $1 FAIRE UNE DIVISION VIDER 1 VERIFIER $666 SI VIDE REMPLIR 1 VIDER $1 DEPILER DANS LE BIDON $1 FIN EST-MULTIPLE-? TACHE DEPILATION-1-2-3 VIDER $1 VIDER $2 VIDER $3 DEPILER DANS $1 DEPILER DANS $2 DEPILER DANS $3 FIN DEPILATION CORVEE NOMBRE-PREMIER-? -- in $2 - OUT BIDON 1 = OK EMPILER $3 EMPILER $2 EMPILER $1 REMPLIR BIBON 2 COMPARER $2 2 SI PLUS-PETIT ALLER-A NOMBRE-PREMIER-KO SI EGAL ALLER-A NOMBRE-PREMIER-OK EST-CE-QUE BIDON-PAIR-? VERIFIER BIDON 1 SI PLEIN ALLER-A NOMBRE-PREMIER-KO CALCULER RACINE-CARREE VIDER $3 REMPLIR 1 VIDER 2 DANS $3 VIDER 1 DANS $3 GPS PREMIER-ENCORE COMPARER $3 A $1 SI PLUS-GRAND ALLER-A NOMBRE-PREMIER-OK CALCULER EST-MULTIPLE-? VERIFIER 1 SI PLEIN ALLER-A NOMBRE-PREMIER-KO REMPLIR 2 VIDER 2 DANS $3 ALLER-A PREMIER-ENCORE GPS NOMBRE-PREMIER-KO FAIRE DEPILATION-1-2-3 VIDER BIDON 1 FIN NOMBRE-PREMIER-? GPS NOMBRE-PREMIER-OK FAIRE DEPILATION-1-2-3 REMPLIR BIBON 1 FIN NOMBRE-PREMIER-? CALCUL TOUS-PREMIERS - jusqu'à [$2] EMPILER $3 EMPILER $2 EMPILER $2 VIDER $3 DEPILER DANS $3 VIDER $2 GPS TOUS-PREMIERS-SUIVANT COMPARE $2 A $3 SI EGAL ALLER A TOUS-PREMIERS-FINI CALCULER NOMBRE-PREMIER-? VERIFIER 1 SI PLEIN SMS $2 REMPLIR 1 VIDER 1 DANS $2 ALLER-A TOUS-PREMIERS-SUIVANT GPS TOUS-PREMIERS-FINI VIDER $2 DEPILER DANS $2 VIDER $3 DEPILER DANS $3 FIN TOUS-PREMIERS