DojoDeveloppement/Mercredi29Fevrier2012

• EmmanuelGaillot
• JonathanPerret
• RomainGauthier?
• LaurentBossavit
• ArieBenichou?

• Randori /Anagrammes? en JavaScript? sans point-virgule
  • Des points-virgules qui se sont quand même invités, très impoliment
  • À la fin, ça marchait
• Certains disent qu'il doit y avoir plus efficace - notamment sur la gestion des doublons
  • Plutôt que de générer tous les anagrammes, puis filtrer sur ceux qui sont en double, probablement qu'on a moyen d'optimiser
• Des grabouillages concernant le scope des variables... ce qui fait qu'on a pu "mettre en place la récursion" alors que la fonction n'était pas (encore) nommée.

• Exercice (surprise) no. 17 du projet Euler, randori Haskell

Tests.hs

module Tests
where
import Test.HUnit

euler17 :: Int -> Int
euler17 n = sum $ map (length . letters) [1..n]

terminals 0 = ""
terminals 1 = "one"
terminals 2 = "two"
terminals 20 = "twenty"
terminals 30 = "thirty"
terminals 100 = "onehundred"

letters n | n > 20 = let units = n `mod` 10 in
  concatMap terminals [n - units, units] ++ if n > 100 then "and" else ""
letters n = terminals n

main = runTestTT $ TestList [
    "The numeral 'one' is three letters long" ~: length "one" ~?= 3,
    "The Euler17 value of 1 is therefore 3" ~: euler17 1 ~?= 3,
    "The Euler17 value of 2 is (not so obviously) 6" ~: euler17 2 ~?= 6,
    "Some terminal cases" ~: TestList [
        terminals 1 ~?= "one",
        terminals 2 ~?= "two",
        terminals 20 ~?= "twenty"
      ],
    "Decomposing larger numbers" ~: TestList [
        letters 21 ~?= "twentyone",
        letters 22 ~?= "twentytwo",
        letters 31 ~?= "thirtyone",
        letters 200 ~?= "twohundred"
      ], 
    "Some large numbers are terminals" ~: TestList [
        letters 30 ~?= "thirty",
        letters 100 ~?= "onehundred"
      ],
    "The British and their andses" ~: TestList [
        letters 101 ~?= "onehundredoneand"
      ]
    ]