ocn programming problem 5

ocn5.scm

; [SPOILER=Iterative][CODE]#include <stdio.h>
(define (print-* n)
  (if (= n 0)
    (display "\n")
    (and
      (display "* ")
      (print-* (- n 1)))))

(define (print-full-* n)
  (and
    (print-* 1)
    (print-* n)
    (print-* 1)))

(define (print-*-hist-r n p)
  (cond ((= n 0) (print-* 0))
        ((< p n)
         (and (print-* p)
              (if (> p 1)
                (print-* 1)
                #t)
              (print-*-hist-r n (+ p 1))
              (if (> p 1)
                (print-* 1)
                #t)
              (print-* p)))
        (else (print-* p))))