Contents

(defmodule trinary
  (export (to-decimal 1)))

(defun BASE () 3)

(defun to-decimal (string) (to-decimal string 0))

(defun to-decimal
  ([() acc] acc)
  ([`(,digit . ,digits) acc] (when (>= digit #\0) (=< digit #\2))
   (to-decimal digits (+ (digit->int digit) (* acc (BASE)))))
  ([_string _acc] 0))

(defun digit->int
  ([digit] (when (>= digit #\0) (=< digit #\2))
   (- digit #\0)))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.158	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.157	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.156	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.155	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.154	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.153	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.152	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.151	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.150	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.149	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.148	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.147	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.146	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.145	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.144	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.143	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.142	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.141	tracks/lfe/exercises/trinary/src/example.lfe
trackler-2.2.1.140	tracks/lfe/exercises/trinary/src/example.lfe