DojoDeveloppement/Mercredi13Juin2012

• JonathanPerret
• EmmanuelGaillot
• ArieBenichou?
• RomainGauthier?
• ChristopheThibaut
• AlinePaponaud?

Rétrospective de la session du /Mercredi6Juin2012 :

• printf en Haskell
• On a réussi à faire une fonction Haskell qui prenne un ou deux arguments !
• Finalement on s'est pas intéressés à la partie formatage de printf, mais c'était pas le plus amusant
  • En fait on aurait pu juste écrire une fonction "somme" à nombre d'arguments variable, par exemple
• On a du aller chercher des pragmas obscurs (TypeSynonymInstances?, FlexibleInstances?)
  • Après prise de renseignements, c'est normal, à peu près tous ceux qui utilisent les typeclasses en Haskell finissent par activer ces options.

Sujets de ce soir :

• /RickRollCodingGolf? (http://codegolf.stackexchange.com/questions/6043/were-no-strangers-to-code-golf-you-know-the-rules-and-so-do-i), randori C
• /RickRollCodingGolf?, randori Haskell
• /PeserAvecDesPierres, randori Haskell Sujet retenu

module PeserAvecDesPierres where
import Data.List
import Data.Ord

combienDePoidsPossibles :: [Int] -> Int
combienDePoidsPossibles [_] = 1
combienDePoidsPossibles [x, y] = length $ filter (>0) $ nub [x, y, x + y, y - x]

candidatsParDeux :: Int -> [[Int]]
candidatsParDeux x = [[a,x-a] | a <- [1..x `div` 2]]



candidatsParTrois x =
  nub [ sort [a, b1, b2] | [a, b] <- candidatsParDeux x,
                           [b1, b2] <- candidatsParDeux b ]


meilleurDécoupage :: Int -> [Int]
meilleurDécoupage  = maximumBy (comparing combienDePoidsPossibles) . candidatsParDeux

module Tests where
import Test.HUnit
import PeserAvecDesPierres



main = runTestTT $ TestList [
   combienDePoidsPossibles [1] ~?= 1
  ,combienDePoidsPossibles [1, 1] ~?= 2
  ,combienDePoidsPossibles [1, 2] ~?= 3
  ,combienDePoidsPossibles [2, 3] ~?= 4
  ,candidatsParDeux 2 ~?= [[1, 1]]
  ,candidatsParDeux 3 ~?= [[1, 2]]
  ,candidatsParDeux 4 ~?= [[1, 3],[2, 2]]
  ,meilleurDécoupage 4 ~?= [1, 3]
  ,candidatsParTrois 3 ~?= [[1, 1, 1]]
  ,candidatsParTrois 4 ~?= [[1, 1, 2]]
  ,candidatsParTrois 5 ~?= [[1, 1, 3],[1, 2, 2]]
  ,candidatsParTrois 7 ~?= [[1, 1, 5],[1, 2, 4],[1,3,3],[2,2,3]]
  ]