DojoDeveloppement/Lundi11Janvier2010

• ChristopheThibaut
• LaurentBossavit
• EmmanuelGaillot
• BertrandGauriat?
• ArnaudBailly
• FlorentRamiere
• JonathanDray
• JonathanPerret

Thème possible :

• /Lags, avec des boucles et une pile, randori, ruby
• bataille, randori, haskell

Rétrospective de la dernière session

Jeu de la bataille en haskell en randori

• comment calculer le nombre de mains qui ne se terminent pas à la bataille
• c'est difficile d'écrire des tests de recette pour ce kata : difficulté de prédire le nombre de plis d'une bataille.
• c'est ce qui rend ce kata intéressant : difficile d'écrire des tests de recette lisibles
• hypothèse : expliciter les tests de recettes dans lesquels on voit le déroulement du jeu ?
• débat : "ce que j'achète" c'est... avancer sur la prochaine feature ou prévenir le cas d'une bataille infinie ?
• la clause finale d'un pattern en matching (gutter) revient à empiler des fakes, implémentation astucieuse qui ne nous rapproche pas de la solution.
• il est plus facile de lever les fakes les uns après les autres si l'on a pas la valeur pra défaut de la dernière clause de pattern matching
• discussion sur le plus important à faire ensuite (nouvelle feature : bataille, ou traiter le cas infini)
• valeur du kata (ou randori) non seulement en tant que simulation de projet mais aussi en soi comme exercice

• Tests.rb

require 'test/unit'
require 'lags'


class LagsTest < Test::Unit::TestCase

  def test_aucune_demande_alors_chiffre_affaire_est_nul
    assert_equal(0, chiffre_affaire([]))
  end

  def test_une_demande_alors_chiffre_egale_prix_demande
    demande = Demande.new(0,5,10)
    assert_equal(10, chiffre_affaire([demande]))

    demande = Demande.new(0,5,1)
    assert_equal(1, chiffre_affaire([demande]))
  end

  def test_deux_demandes_incompatibles_on_retient_la_meilleure
    demande1 = Demande.new(0, 5, 5)
    demande2 = Demande.new(0, 5, 6)
    assert_equal(6, chiffre_affaire([demande1, demande2]))
  end

  def test_trois_demandes_incompatibles_on_retient_la_meilleure
    demande1 = Demande.new(0, 5, 5)
    demande2 = Demande.new(0, 5, 10)
    demande3 = Demande.new(0, 6, 4)
    assert_equal(10, chiffre_affaire([demande1, demande2, demande3]))
  end

  def test_deux_demandes_compatibles
    demande1 = Demande.new 0, 5, 2
    demande2 = Demande.new 6, 8, 3
    assert_equal 5, chiffre_affaire([demande1, demande2])
    assert_equal 6, chiffre_affaire([demande1, Demande.new(6, 7, 4)])
  end

end

• Lags.rb

def chiffre_affaire demandes
  return 0 if demandes.empty?

  tous_les_prix = (combinaisons_compatibles demandes).map {|d| d.prix}
  tous_les_prix.max
end

def compatibles d1,d2
  d2.debut > d1.end
end

def combinaisons_compatibles demandes
  if compatibles demandes.first, demandes.last
    [[demandes.first, demandes.last]]
  else
    demandes
  end
end

class Array
  def prix
    return inject(0) {|acc, val| acc+val.prix}
  end
end

class Demande
  attr_reader :prix, :debut, :end
  def initialize(debut, duree, prix)
    @prix = prix
    @debut = debut
    @end = debut + duree
  end
end