Mengerjakan Mean Olympic tanpa fungsi antara, hanya degan menggunakan nama antara : MO (u,v,w,x) : let max2uv : (u+v+abs(u-v))/2 max2wx : (w+x+abs(w-x))/2 min2uv : (u+v-abs(u-v))/2 min2wx : (w-x-abs(w-x))/2 in let max4 : (max2uv + max2wx + abs(max2uv - max2wx))/2 min4 : (min2uv + min2wx - abs(min2uv - min2wx))/2 in (u+v+w+x - min4 - max4)/2 (defun MO (u v w x) ( let ((max2uv (/(+ u v (abs (- u v)))2)) (max2wx (/(+ w x (abs (- w x)))2)) (min2uv (/(- + u v (abs (- u v)))2)) (min2wx (/(- + u v (abs (- u v)))2))) let ((max4 (/(+ max2uv max2wx (abs (- max2uv max2wx)))2)) (min4 (/(- + max2uv max2wx (abs (- max2uv max2wx)))2))) (/(-(+ u v w x) min4 max4)2) ) )