about summary refs log tree commit diff
path: root/tht/B/QG-2016/trigrid.scm
blob: d99a1fd5d42405156fabf851525778641e05603a (plain) (blame)
1
2
3
4
5
6
(with-output-to-file "TRIGRID.TXT" (lambda () (for-each
  (lambda (a)
    (display (remainder (quotient (* a (+ a 2) (+ (* a 2) 1)) 8) 2016))
    (newline))
  '(4 3 5 6 111 222 3333 4444 55555 666666 7777777 88888888 999999999
    123456789123456789 1000000000000000000))))