1votos

Dibujar un triángulo rectángulo en Other

por josejuan hace 6 años

[1,b] [ "\n" swap [ "*" append ] times ] map concat print

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

1
2
3
4
5
6
7
8
9
10
11
12
# la solución está currificada 
[1,b] [ "\n" swap [ "*" append ] times ] map concat print 
 
# eg. para N = 5 sería 
5 [1,b] [ "\n" swap [ "*" append ] times ] map concat print 
 
# y la salida 
** 
*** 
**** 
***** 
1 comentario
0votos

Escrito por jneira hace 6 años

tambien valdria
"*" swap [ dup 42 suffix swap print ] times

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.