1votos

sucesiones binarias. en Haskell

por josejuan hace 1 año

.

Generar todas las posibles combinaciones de 1s y 0s de cierto largo, con un cambio entre una combinación y otra.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
-- un entero 0.. a código gray 
toGray n = n `xor` (n `div` 2) 
 
 
 
 
{- 
 
-- por ejemplo 
> mapM_ (putStrLn . printf "%05b" . toGray) [0..31] 
00000 
00001 
00011 
00010 
00110 
00111 
00101 
00100 
01100 
01101 
01111 
01110 
01010 
01011 
01001 
01000 
11000 
11001 
11011 
11010 
11110 
11111 
11101 
11100 
10100 
10101 
10111 
10110 
10010 
10011 
10001 
10000 
 
-} 
2 comentarios

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.