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.180 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.179 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.178 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.177 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.176 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.175 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.174 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.173 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.172 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.171 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.170 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.169 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.167 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.166 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.165 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.164 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.163 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.162 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.161 tracks/common-lisp/exercises/binary/example.lisp
trackler-2.2.1.160 tracks/common-lisp/exercises/binary/example.lisp