This repository has been archived on 2024-01-26. You can view files and clone it, but cannot push or open issues or pull requests.
project-euler/e0016/euler0016.rkt

4 lines
123 B
Racket
Raw Normal View History

#lang racket
(foldl + 0 (map (λ (x) (- (char->integer x) 48))
(string->list (number->string (expt 2 1000)))))