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

  • re: continuing next iteration

    From B. Pym@21:1/5 to All on Thu Jul 4 02:11:50 2024
    > (loop for i below 6
    finally (return (reverse (pairlis list list2)))
    do (format t "~d" i)
    collect i into list
    do (format t "^2 = ~2d~%" (* i i))
    collect (* i i) into list2)
    0^2 = 0
    1^2 = 1
    2^2 = 4
    3^2 = 9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

    (do ((i 0 (+ i 1))
    (_ 0 (format #t "^2 = ~2D~%" (* i i)))
    (lst '() (cons i lst))
    (lst2 '() (cons (* i i) lst2)))
    ((= i 6) (reverse (map cons lst lst2)))
    (format #t "~D" i ))

    ===>
    0^2 = 0
    1^2 = 1
    2^2 = 4
    3^2 = 9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to All on Mon Aug 26 03:37:42 2024
    > (loop for i below 6
    finally (return (reverse (pairlis list list2)))
    do (format t "~d" i)
    collect i into list
    do (format t "^2 = ~2d~%" (* i i))
    collect (* i i) into list2)
    0^2 = 0
    1^2 = 1
    2^2 = 4
    3^2 = 9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

    Gauche Scheme

    (use srfi-42) ;; list-ec

    (list-ec (:range i 6)
    (begin
    (display i)
    (format #t "^2 = ~2d\n" (* i i))
    (cons i (* i i))))

    0^2 = 0
    1^2 = 1
    2^2 = 4
    3^2 = 9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

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