Name:
Anonymous
2008-12-24 22:21
(define (christmasTree h)
(define (foo k)
(if (< k 1)
"" (string-append " " (foo (- k 1)))))
(define (bar k)
(if (< k 1)
"\n" (string-append "*" (bar (- k 1)))))
(define (ct i)
(if (= i (+ h 1))
(string-append
(foo (- h 1))
(bar 1))
(string-append
(foo (- h i))
(bar (- (* 2 i) 1))
(ct (+ i 1)))))
(display (ct 1)))
#;1> (christmasTree 10)
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
*
Name:
Anonymous
2008-12-27 20:32
#!/bin/bash
[ -z "$1" ] && exit
l='*'
s=' '
for i in $(seq 1 $1)
do
echo -n "$(echo "$s" | cut -b$i-$1)"
echo "$l"
l=$(echo "$l" | sed 's/^/*/' | sed 's/$/*/')
done
echo "$(echo "$s" | cut -b-$1)*"