Sha256: f2103f72743d47b38180b9728bdca40b4914d94517b0d0354899c0fbba1702ec

Contents?: true

Size: 320 Bytes

Versions: 396

Compression:

Stored size: 320 Bytes

Contents

(defpackage #:binary
  (:use #:common-lisp)
  (:export #:to-decimal))

(in-package #:binary)

(defun to-decimal (string)
  (loop with digits = (remove-if #'null (map 'list #'(lambda (c) (digit-char-p c 2)) string))
     for idx below (length digits) and digit in (reverse digits)
       summing (* digit (expt 2 idx))))

Version data entries

396 entries across 396 versions & 1 rubygems

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