github/advent-of-code
1
0
Fork 0
mirror of https://github.com/correl/advent-of-code.git synced 2024-11-22 03:00:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

Day 4, Part 2

Browse source
This commit is contained in:
Correl Roush 2015-12-11 07:57:13 -05:00 committed by Correl Roush
parent 22b37435f0
commit 696932fa77
1 changed files with 25 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
advent-of-code.org
View file

@ -1470,5 +1470,29 @@ For example:
(day4/first-adventcoin (string-trim input)) (day4/first-adventcoin (string-trim input))
#+END_SRC #+END_SRC
#+RESULTS[5929e5d34f2976d5204f75afe31ef59b06411f6d]: #+RESULTS[461139efd69152ff32f7ba3996d41b323fd6c8bd]:
: 117946 : 117946
** Part 2
Now find one that starts with *six zeroes*.
----------------------------------------------------------------------
#+BEGIN_SRC emacs-lisp :var input=4-input :exports both
(defun day4/adventcoin-hash-6-p (n hash)
(string-equal
"000000"
(substring hash 0 6)))
(defun day4/first-adventcoin-n (n secret)
(loop for x from 0
while (not (day4/adventcoin-hash-6-p n (day4/mine-hash secret x)))
count x))
(day4/first-adventcoin-n 6 (string-trim input))
#+END_SRC
#+RESULTS[637ec8d92dd6b49b39e0eb247af8265cd6938e5a]:
: 3938038