dmitriy/april_day_2026
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp lang solution №1

Browse source
This commit is contained in:
Дмитрий Голондарев 2026-03-28 20:48:30 +03:00
parent 04eede7e76
commit 2a3ed164a3
3 changed files with 103 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/test.txt Normal file
View file

@ -0,0 +1,11 @@
(ten-to-bin 99)
(main '("382040" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000"))
(main '("477550" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000" "15800" "1525" "35300" "19410" "25000"))
(time (dotimes (i 1000000) (calculate-sum #(1 2 3 4 5 6 7 8 9 10 11 12 13) #(1 1 1 0 1 1 0 0 1 1 1 0 0 0)) ))
(time (dotimes (i 1000) (main-one '("69" "12" "1" "2" "11" "12" "1" "2" "11" "12" "1" "2" "11"))))