1. Forum
  2. USENET
  3. comp.lang.scheme

  • Re: Lisp for ANN programming

    From B. Pym@Nobody447095@here-nor-there.org to comp.lang.lisp,comp.lang.scheme on Thu Aug 7 16:24:13 2025
    From Newsgroup: comp.lang.scheme

    CL-USER 2 > (defvar a (make-array 10 :initial-element 1))
    A

    CL-USER 3 > (defun increment-every-third-elt (arr)
    (loop for elt across arr
    for i upfrom 1 do
    (when (= 0 (mod i 3))
    (incf (aref arr (1- i))))))
    INCREMENT-EVERY-THIRD-ELT

    CL-USER 4 > (increment-every-third-elt a)
    NIL

    CL-USER 5 > a
    #(1 1 2 1 1 2 1 1 2 1)

    Gauche Scheme

    (define (inc-every-nth vec n)
    (do ((i (- n 1) (+ i n)))
    ((>= i (vector-length vec)))
    (inc! (~ vec i))))

    (define v (make-vector 23 0))

    (inc-every-nth v 3)

    v
    ===>
    #(0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0)
    --
    [T]he problem is that lispniks are as cultish as any other devout group and basically fall down frothing at the mouth if they see [heterodoxy].
    --- Kenny Tilton
    The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham --- Synchronet 3.21a-Linux NewsLink 1.2