• Re: Add the numbers in a 9x9 multiplication Table

    From yeti@21:1/5 to All on Thu Jan 2 11:36:02 2025
    XPost: rec.puzzles, comp.lang.lisp

    https://oeis.org/A000537 ?

    --
    I do not bite, I just want to play.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to Kaz Kylheku on Fri Jun 6 00:13:20 2025
    XPost: rec.puzzles, comp.lang.lisp

    Kaz Kylheku wrote:

    (sum-each ((i 1..10) (j 1..10)) (* i j))
    285
    (sum-each-prod ((i 1..10) (j 1..10)) (* i j))
    2025

    Gauche Scheme

    (use srfi-42)

    (sum-ec (: i 10) (: j 10) (* i j))
    ===>
    2025

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to B. Pym on Fri Jun 6 15:25:51 2025
    XPost: rec.puzzles, comp.lang.lisp

    B. Pym wrote:

    Kaz Kylheku wrote:

    (sum-each ((i 1..10) (j 1..10)) (* i j))
    285
    (sum-each-prod ((i 1..10) (j 1..10)) (* i j))
    2025

    Gauche Scheme

    (use srfi-42)

    (sum-ec (: i 10) (: j 10) (* i j))
    ===>
    2025


    Equivalent but more prolix:

    (sum-ec (:range i 0 10) (:range j 0 10) (* i j))

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