blob: 51a90924646c3a0ea8e3883da7e4588458ec5b41 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
definition module Domino
:: Steen :== (Int,Int) // (1..N,1..N)
:: Slang :== [Steen]
N :== 2
/* alle_slangen max
levert alle slangen van lengte max op van een dubbel-N spel.
*/
alle_slangen :: Int -> [Slang]
|