ref:http://www.kt.rim.or.jp/~kbk/zakkicho/15/zakkicho1506a.html#D20150608-4 Lispらしく書くならこんな感じ？ (defun varp-1 (xs) (cl-labels ((varp-sub (xs s1 s2 len) (if (consp xs) (let ((x (car xs))) (varp-sub (cdr xs) (+ s1 (* x x)) (+ s2 x…