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

  • (define (Haiku? x) . . .

    From Hen Hanna@21:1/5 to All on Mon May 15 18:07:23 2023
    (define (Haiku? x)
    (and (= (length (car x)) 5)
    (= (length (cadr x)) 7)
    (= (length (caddr x)) 5)))


    Haiku is defined:
    [of length five in first and third;
    seven in second].

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Hen Hanna@21:1/5 to Hen Hanna on Mon May 15 18:34:39 2023
    On Monday, May 15, 2023 at 6:07:29 PM UTC-7, Hen Hanna wrote:
    (define (Haiku? x)
    (and (= (length (car x)) 5)
    (= (length (cadr x)) 7)
    (= (length (caddr x)) 5)))


    Haiku is defined:
    [of length five in first and third;
    seven in second].


    slightly better , written as:

    (define (Haiku? x)
    (and
    (= (length (car x)) 5)
    (= (length (car (cdr x))) (1+ 6) )
    (= (length (caddr x)) 5)))

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Tristan Wibberley@21:1/5 to All on Mon Mar 4 20:30:06 2024
    On 16/05/2023 02:07, Hen Hanna wrote:
    >
    5 > (define (Haiku? x)
    7 > (and (= (length (car x)) 5)
    so close > (= (length (cadr x)) 7)
    too many lines > (= (length (caddr x)) 5)))

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