1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • Re: Functional Programming

    From B. Pym@21:1/5 to Pascal J. Bourguignon on Mon Sep 1 01:10:26 2025
    Pascal J. Bourguignon wrote:

    cl-user> (defun tr (n p)
    (unless (zerop p)
    (tr (1+ n) (1- p))
    (format t "~V@{ ~}~*~V@{*~}~%" n '() (1- (* 2 p)) '())))
    tr
    cl-user> (tr 0 4)
    *
    ***
    *****
    *******

    Shorter.

    Gauche Scheme

    (define (tr n p)
    (unless (zero? p)
    (tr (+ n 1) (- p 1))
    (format #t "~va~v,,,'*a\n" n "" (- (* 2 p) 1) "")))


    (tr 0 5)
    *
    ***
    *****
    *******
    *********

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)