0votos

Dibujar un triángulo rectángulo en Haskell

por josejuan hace 4 años

Triángulos y triángulos truncados, finitos e infinitos.

Dibujar un triángulo rectángulo isósceles.

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
infinito = "*": map ('*':) infinito 
 
truncadoInfinito n = drop n infinito 
 
finito n = take n infinito 
 
truncadoFinito m = take m . truncadoInfinito 
 
 
main = do 
 
    mapM_ putStrLn $ finito 10 
    mapM_ putStrLn $ truncadoFinito 5 20 
     
{- 
    Main> main 
    ** 
    *** 
    **** 
    ***** 
    ****** 
    ******* 
    ******** 
    ********* 
    ********** 
    ********************* 
    ********************** 
    *********************** 
    ************************ 
    ************************* 
    Main> 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.