All pastes #172108 Raw Edit

Rev. Rv

public text v1 · immutable
·published 2006-09-15 20:44 UTC
rendered paste body
(defun kontrollera-pnr (pnr)
  (=
   (get-last-digit pnr)
   (ten-diff
    (add-list
     (split-numbers
      (alternate-add
       (tokenize-number
         (remove-ctrl-no pnr) )))))))