Re: Add the numbers in a 9x9 multiplication Table

On 2025-01-02, HenHanna <HenHanna@dev.null> wrote:

Pls give (show) me nice variations in Lisp and Python.  Thanks!!!
>
>
>
 A happy new year! ...
>
44 x 44 = 1936
45 x 45 = 2025   <--  one reason that  Puzzle nerds are excited today.
46 x 46 = 2116
>
>
_______________________________________
The following    (in Lisp (Scheme) and Python)    adds
                     all the numbers in a  9x9  multiplication Table.
________________________________
(print (apply +
          (apply append
             (map (lambda (y)
                        (map (lambda (x) (* x y))  (iota 9 1)))
                  (iota 9 1)))))
______________________________________
isum=0
for y in range(1, 10):
    print()
    for x in range(1, 10):
        print(f"{x*y:3}", end=" ")
        isum += x*y
print('  Total= ', isum, '\n')
_______________________________
kuku = [i*j for i in range(1, 10) for j in range(1, 10)]
print(sum(kuku))

This is the TXR Lisp interactive listener of TXR 297.
Quit with :quit or Ctrl-D on an empty line. Ctrl-X ? for cheatsheet.
Allow me to expand a bit more on why there is no substitute for macros.
1> (sum-each ((i 1..10) (j 1..10)) (* i j))
285
2> (sum-each-prod ((i 1..10) (j 1..10)) (* i j))
2025

--
TXR Programming Language: http://nongnu.org/txr
Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal
Mastodon: @Kazinator@mstdn.ca