Proof of concept for gear ratio

I am making some functions in Lisp in order to check the concept required for improving the gear ratio calculator repl. The main function calculates recursively a list that consists of 3 values which meets the relation xy=a, so that any of its values x,y,a could be also a list of the same structure (xy=a) and their children too.

こちらの投稿のギヤ比計算REPLを改善するための検証用の関数をつくってます。メインの関数は xy=a の関係が成り立つ3つの値からなるリストを再帰的に計算していきます。リストのどの値 x,y,a も同じ構成(xy=a)のリストであってもいいしその子供もしかりです。