gnu clisp 2.49 (defun manhattan-distance (x1 y1 x2 y2) (+ (abs (- x2 x1)) (abs (- y2 y1)))) (print (manhattan-distance 0 4 2 5)) ...
確定! 回上一頁