﻿; http://en.wikipedia.org/wiki/Hilbert_matrix
(lambda (i) (letrec (
   (sr (lambda (m n) (if (> m n) '() (cons (/ m) (sr (+ m 1) n)))))
   (cs (lambda (k) (if (= k 0) '() (cons (sr (+ 1 (- i k)) (- (* 2 i) k)) (cs (- k 1)))))))    
 (cs i)))
