--
-- ** More sophisticated/complex strategies

-- | The famous Tit-for-Tat. Cooperates initially, then plays the last
--   move played by its opponent.
tft :: Player Dilemma
tft = "Tit for Tat" ::: play C `atFirstThen` his (lastGame's onlyMove)
tft :: Player Dilemma
tft = "Tit for Tat" ::: play C `atFirstThen` his (lastGame's onlyMove)
tft = "Tit for Tat" ::: play C `atFirstThen` his (lastGame's onlyMove)