Forum

Code : Tout sélectionner

2:            {2 3 3 5 9}
1:                 .59332

Code : Tout sélectionner

6:    [0 1 2 0 1 0 0 0 1]           @ tableau 't' → on voit qu'il contient un "2" ; deux "3" ; un "5" ; un "9".
5:                     23           @ une paire de trois
4:                      0           @ zéro brelan
3:                      0           @ zéro carré
2:                      0           @ zéro "full"
1:               23.59332           @ le résultat attendu

Code : Tout sélectionner

2:         {2 3 3 5 9}
1:         .59332

Code : Tout sélectionner

<< → l 
   << l π + 5 ^ FP 5 TRNC DUP 'l' STO
      {} 1 5 START 
           10 l * DUP FP 'l' STO IP + NEXT
      SORT R→I SWAP M3
  >>
>>

Code : Tout sélectionner

<< {9} 0 CON 0 4 NDUPN DROP → l d t p b c f      @ Init. : création d'un tableau de dimension 9 ; 4 zéros placés sur la pile
  << 1 9 FOR h l h 5 NDUPN →LIST                 @ Remplissage du tableau en fonction de la valeur des élts de la liste "l"
       << == >> DOLIST ΣLIST 't(h)' STO NEXT
  
     1 9 FOR h
         't(h)' EVAL 2 == IF THEN 1 'p' STO+ END                    @ A-t-on une paire voire deux ?
         't(h)' EVAL 3 == IF THEN 3 'b' STO END NEXT                @ A-t-on un brelan ?

     p 1 == b 1 == AND IF THEN 600 'f' STO END                      @ Si l'on a une paire et un brelan alors on a un "full".

Code : Tout sélectionner

     @ calcul de la partie entière de la valeur finale à afficher selon que l'on a :     
                      
     9 1 FOR h                                    
          't(h)' EVAL 2 == p 1 ≤ AND                                @ - une paire ;
             IF THEN 20 h + 'p' STO                             
                ELSE 't(h)' EVAL 2 ==                               @ - deux paires ;
                   IF THEN p 10 * h + 'p' STO END END
         't(h)' EVAL 3 == IF THEN 30 h + 'b' STO END                @ - un brelan ;
         't(h)' EVAL 4 == IF THEN 40 h + 'c' STO END −1 STEP        @ - un carré.

     600 f == IF THEN b 10 / FP 100 * R→I p 20 − + f + 'd' STO+     @ Le full, c'est mieux mais c'est compliqué ! :)
               0 {p b} STO 
                 ELSE p b + c + 'd' STO+ END

Code : Tout sélectionner

     l SORT REVLIST DUPDUP 'l' STO                                  @ Calculs étranges pour déterminer si l'on une "flush"
       << − >> STREAM SWAP ΣLIST 2 →LIST 'l' STO

     CASE                                                           @ et si oui, laquelle !
       IF l {−5 15} == THEN 55 END
       IF l {−8 20} == THEN 56 END
       IF l {−11 25} == THEN 57 END
       IF l {−14 30} == THEN 58 END
       IF l {−17 35} == THEN 59 END
       DEPTH 0 == {0} IFT 'd' STO+
     END
     d                                                              @ Affichage du résultat
  >>
>>  

Code : Tout sélectionner

			set modem type direct
			set prefixing all
			set port /dev/ttyUSB0
			set speed 9600
			set carrier-watch off
			set flow none
			set parity none
			set block 3

			remote directory

Code : Tout sélectionner

« IP DUP « 2 / DUP FP SIGN SWAP B° + » IFT » 'B°' STO

Code : Tout sélectionner

« IP IF DUP THEN 2 / DUP FP SIGN SWAP B° + END » 'B°' STO