Logan 的数字划分

说明

Lisp 外星人 Logan 喜欢数字，也喜欢整理归纳。

他们请你帮忙写一个函数：这个函数接收一个数字数组，然后生成一对数组，第一个数组放所有奇数，第二个数组放所有偶数。

1. 对数字进行分类

首先，你需要创建一个函数，它接收一对数组和一个数字，并根据这个数字是奇数还是偶数，把它放进正确的子数组里：

(categorize-number '((1) . (2)) 23) ; => ((23 1) . (2))
(categorize-number '((1) . (2)) 42) ; => ((1) . (42 2))

2. 给大量数字分类

现在，用你刚创建的这个函数，可以再写一个函数，它接收一个数字数组，然后像上面那样给它们分类：

(partition-numbers '(1 2 3 4))     ; => ((3 1) . (4 2))
(partition-numbers '(42 31 24 13)) ; => ((13 31) . (24 42))