Contents

(defpackage #:collatz-conjecture
  (:use #:common-lisp)
  (:export #:collatz))

(in-package #:collatz-conjecture)

(defun collatz-helper (a n)
  (cond ((= n 1)   a)
        ((evenp n) (collatz-helper (+ 1 a) (floor n 2)))
        (T         (collatz-helper (+ 1 a) (+ 1 (* 3 n))))))

(defun collatz (n)
  (when (> n 0)
    (collatz-helper 0 n)))

Version data entries

145 entries across 145 versions & 1 rubygems

Version	Path
trackler-2.2.1.38	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.37	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.36	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.35	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.34	tracks/common-lisp/exercises/collatz-conjecture/example.lisp