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.159	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.158	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.157	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.156	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.155	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.154	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.153	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.152	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.151	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.150	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.149	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.148	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.147	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.146	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.145	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.144	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.143	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.142	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.141	tracks/common-lisp/exercises/collatz-conjecture/example.lisp
trackler-2.2.1.140	tracks/common-lisp/exercises/collatz-conjecture/example.lisp