20 lines
397 B
Common Lisp
20 lines
397 B
Common Lisp
(for ((i (in-range 1 11))) (writeln i (divs i)))
|
|
1 null
|
|
2 (1)
|
|
3 (1)
|
|
4 (2 1)
|
|
5 (1)
|
|
6 (2 3 1)
|
|
7 (1)
|
|
8 (4 2 1)
|
|
9 (3 1)
|
|
10 (2 5 1)
|
|
|
|
|
|
(most-proper 20000)
|
|
→ ((18480 . 79) (15120 . 79))
|
|
(most-proper 1_000_000)
|
|
→ ((997920 . 239) (982800 . 239) (942480 . 239) (831600 . 239) (720720 . 239))
|
|
|
|
(lib 'bigint)
|
|
(numdivs 95952222101012742144) → 666 ;; 🎩
|