คุณสุกรีใช้คำว่ามือโปร เดี๋ยวจะไม่มีใครกล้าเข้ามาตอบนะครับ :)

ปกติผมก็ใช้ loop ธรรมดาแหล่ะครับ
แต่ลองพยายามคิดแบบอื่นๆดูบ้าง
สำหรับ ruby ก็ได้หน้าตาออกมาแบบนี้ครับ

code

แนวคิดเดียวกับของคุณ pphetra เป๊ะ โชคดีที่ map() รับลิสต์ได้หลายตัว เลยไม่ต้องใช้ zip() แค่นี้ก็ดูไม่จืด

Python

ลองเอาแนวคิดแบบ lazy evaluation บ้าง
เริ่มด้วยการ declare ตาราง แบบ infinite

-- ตารางประกอบจากแถว
tables start = rows start start
-- แต่ละแถว ประกอบด้วย column
rows n start = cols n start : rows (n+1) start
cols n i = [n,i,n*i] : cols n (i+1)

ถ้าลองสั่ง tables 2 ดูจะได้ตารางประมาณนี้ออกมา

[[[2,2,4],[2,3,6],[2,4,8],...]
,[[3,2,6],[3,3,9],[3,4,12],...]
,...

แน่นอนว่ามันเป็น infinite array ทั้งด้านกว้างและด้านยาว

จากนั้นก็ define function ที่ scope เอาเฉพาะช่วงที่ต้องการ
pp xs n = map (\x -> take n x) (take n xs)
ต้องการสูตร 2-12 ก็สั่ง pp (tables 2) 11

Note: take n คือการบอกว่าให้เอาเฉพาะ n ตัวแรก ออกมาจาก array

haskell อีกแบบ
let xs = range(2,12) in [[x,y,x*y] | x <- xs, y <- xs]

haskell อีกแบบ
map (\(x,y) -> (x,y,x*y)) (range((2,2),(12,12)))

เกือบกลายเป็นกระทู้ยุให้ทำลูกไปซะแล้วมั้ยล่ะ

โจทย์น่าสนุกจัง ผมอ่านของคนอื่นไม่ค่อยจะรู้เรื่องเลย ทำไมเขียนได้สั้นขนาดนั้น! o_O’

ผมขอใช้ Plua นะครับ (เข้าใจว่าเป็นภาษา Lua ที่พัฒนาให้เขียนบน Palm) ผมเขียนเป็นแต่แบบง่ายๆ -_-’ พอดีว่าไม่ใช่โปรแกรมเมอร์

start=1
stop=12
 
for n=start,stop,1 do
 
for i=start,stop,1 do
j=".999"
d=i*n
 
jsp=ptextwidth(j)
txtsp=ptextwidth(d)
 
pmoveto((jsp*i)-txtsp,5+(11*n))
 
write(i*n)
 
end
 
end
 
pevent()

scheme แบบถึก

(define (multab a b) 
  (define (x-iter x y)
    (cond 
      ((<= x a) 
       (display (* x y))
       (display " ")
       (x-iter (+ x 1) y))))
  (define (y-iter y)
    (cond
      ((<= y b)
       (x-iter 1 y)
       (display "\n")
       (y-iter (+ y 1)))))
  (y-iter 1))
 
(multab 12 12)

scheme แบบไม่อยาก pass parameter หลายตัวใน x-iter เกรงจะไม่เท่ห์

(define (multab min_x max_x min_y max_y) 
 
  (define (build-x-iter y) 
    (lambda (x) 
      (define (x-iter x)
        (cond ((<= x max_x)               
               (display (* x y))
               (display " ")
               (x-iter (+ x 1)))))
      (x-iter x)))
 
  (define (y-iter y)
    (cond ((<= y max_y)
           ((build-x-iter y) 
            min_x)
           (display "\n")
           (y-iter (+ y 1)))))
 
  (y-iter min_y))
 
(multab 2 5 4 8)

haskell อีกแบบ
[[x,y,x*y] | x <- [2..12], y <- [2..12]]

เอ๊ะ มันเหมือนอันที่ post ไปแล้วนี่น่า