the badger, the mushroom, the snake and the haskell

How they all fit together:

1
2
3
4
5
6
7
8

module Badger where
 
badger :: Int -> Int -> [String]
badger mushroom snake = badger' mushroom snake mushroom snake
    where
    badger' m s 0 s' = "Mushroom" : "Mushroom" : badger' m s m s'
    badger' m s m' 0 = "Snaaaaaaaaake" : badger' m s m s
    badger' m s m' s' = "Badger" : badger' m s (m' - 1) (s' - 1)

A Haskell 8-liner based on this short made by Weebl.

Posted by spyked at 10:10 pm on December 22nd, 2009. 3 comments... »
Categories: wtf. Tags: , , , , , , .

3 comments.

  1. Un demo:P

    http://ideone.com/BMJBy0o0

    Posted by Mihai Maruseac on December 23rd, 2009.

  2. The short ii cam creepy

    Posted by Alex on February 12th, 2010.

  3. E fain dacă iei ciuperci sau ceva.

    Posted by spyked on February 12th, 2010.

Post a comment.