0votos

Dibujar un triángulo rectángulo en Haskell

por josejuan hace 4 años

Otra.

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
import Data.List 
 
triangulo n = take n . tail . inits . repeat 
 
main = do 
    n <- putStr "Longitud cateto: "     >> readLn 
    c <- putStr "Carácter de llenado: " >> getChar 
    mapM_ putStrLn $ triangulo n c 
     
{- 
    Main> main 
    Longitud cateto: 5 
    Carácter de llenado: * 
    ** 
    *** 
    **** 
    ***** 
    Main> 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.