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:56
#include <stdio.h>
#define a(e) for(s=0;s<(e);s++)
#define x(a) putchar((a)^040);
#define f x(n);x(040|n)
int main(int argc, char **argv) {
int s,l=1,n=10;for(;l<=n;l++){a(n-l)x(0);
a(((l-1)<<1)+1)f;}a(n)x(0);f;return 0;}