Thank you Alexander for the quick and detailed answer and Davide for
the repository link.
For day 5 my try using Alexander's advice is:
(in '(sh "-c" "tr FBLR 0101 < 5.input | sort -r")
(let N (bin (line T))
(prinl "Part one " N)
(loop
(NIL (= (dec 'N) (bin (line T)))
(prinl "Part two " N) ) ) ) )
Regards,
Christos Gitsis
Στις Παρ, 15 Ιαν 2021 στις 8:21 μ.μ., ο/η Davide BERTOLOTTO
<davide.bertolo...@gmail.com> έγραψε:
>
> In a more functional way:
> (de proc-char (C)
> (case C
> ("B" 1)
> ("R" 1)
> ("F" 0)
> ("L" 0)))
> (de proc-str (S)
> (pack (mapcar 'proc-char S)))
> (de proc-file (F)
> (let Inp (filter 'and (split (in F (till)) "\n"))
> (mapcar 'proc-str Inp)))
> (println (proc-file "5.input"))
>
> If you need some help with the exercises:
> https://github.com/dbertolotto/advent-of-code-2020
>
> Regards,
> Davide
>
> On Fri, Jan 15, 2021, 19:29 Mike <tankf33...@disroot.org> wrote:
>>
>> January 15, 2021 7:21 PM, "Christos Gitsis" <cgit...@gmail.com> wrote:
>>
>>
>> >
>> > Is there a way to do this and get the result:
>> > -> ("0001110111" "1000110111" "1100110100")
>> > ?
>>
>> https://envs.sh/BF.l
>>
>> This is my code how i *feel* this task.
>>
>> (mike)
>>
>> --
>> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subjectUnsubscribe
>>
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
