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.139 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.138 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.137 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.136 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.135 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.134 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.133 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.132 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.131 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.130 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.129 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.128 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.127 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.126 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.125 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.124 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.123 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.122 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.121 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.120 tracks/common-lisp/exercises/binary/example.lisp