C Implementation of Problem 13
View source code here on GitHub!
Includes
"macros.h" (implicitly via bcd.h)
"math.h" (implicitly via bcd.h & if compiled on PCC)
<stdbool.h>(implicitly via bcd.h)<string.h>(implicitly via bcd.h)<stdlib.h>(implicitly via bcd.h & if not compiled on PCC)<math.h>(implicitly via bcd.h & if not compiled on PCC)
Solution
-
uint64_t p0013()
-
int main(int argc, char const *argv[])
Note
This function is only present in the Python test runner, or when compiling as a standalone program. It is not present when compiling for the Unity test runner.
1/*
2Project Euler Question 13
3
4This one turned out to be easiest by just copy/pasting the numbers
5
6Problem:
7
8Work out the first ten digits of the sum of the following one-hundred 50-digit numbers.
9
1037107287533902102798797998220837590246510135740250
1146376937677490009712648124896970078050417018260538
1274324986199524741059474233309513058123726617309629
1391942213363574161572522430563301811072406154908250
1423067588207539346171171980310421047513778063246676
1589261670696623633820136378418383684178734361726757
1628112879812849979408065481931592621691275889832738
1744274228917432520321923589422876796487670272189318
1847451445736001306439091167216856844588711603153276
1970386486105843025439939619828917593665686757934951
2062176457141856560629502157223196586755079324193331
2164906352462741904929101432445813822663347944758178
2292575867718337217661963751590579239728245598838407
2358203565325359399008402633568948830189458628227828
2480181199384826282014278194139940567587151170094390
2535398664372827112653829987240784473053190104293586
2686515506006295864861532075273371959191420517255829
2771693888707715466499115593487603532921714970056938
2854370070576826684624621495650076471787294438377604
2953282654108756828443191190634694037855217779295145
3036123272525000296071075082563815656710885258350721
3145876576172410976447339110607218265236877223636045
3217423706905851860660448207621209813287860733969412
3381142660418086830619328460811191061556940512689692
3451934325451728388641918047049293215058642563049483
3562467221648435076201727918039944693004732956340691
3615732444386908125794514089057706229429197107928209
3755037687525678773091862540744969844508330393682126
3818336384825330154686196124348767681297534375946515
3980386287592878490201521685554828717201219257766954
4078182833757993103614740356856449095527097864797581
4116726320100436897842553539920931837441497806860984
4248403098129077791799088218795327364475675590848030
4387086987551392711854517078544161852424320693150332
4459959406895756536782107074926966537676326235447210
4569793950679652694742597709739166693763042633987085
4641052684708299085211399427365734116182760315001271
4765378607361501080857009149939512557028198746004375
4835829035317434717326932123578154982629742552737307
4994953759765105305946966067683156574377167401875275
5088902802571733229619176668713819931811048770190271
5125267680276078003013678680992525463401061632866526
5236270218540497705585629946580636237993140746255962
5324074486908231174977792365466257246923322810917141
5491430288197103288597806669760892938638285025333403
5534413065578016127815921815005561868836468420090470
5623053081172816430487623791969842487255036638784583
5711487696932154902810424020138335124462181441773470
5863783299490636259666498587618221225225512486764533
5967720186971698544312419572409913959008952310058822
6095548255300263520781532296796249481641953868218774
6176085327132285723110424803456124867697064507995236
6237774242535411291684276865538926205024910326572967
6323701913275725675285653248258265463092207058596522
6429798860272258331913126375147341994889534765745501
6518495701454879288984856827726077713721403798879715
6638298203783031473527721580348144513491373226651381
6734829543829199918180278916522431027392251122869539
6840957953066405232632538044100059654939159879593635
6929746152185502371307642255121183693803580388584903
7041698116222072977186158236678424689157993532961922
7162467957194401269043877107275048102390895523597457
7223189706772547915061505504953922979530901129967519
7386188088225875314529584099251203829009407770775672
7411306739708304724483816533873502340845647058077308
7582959174767140363198008187129011875491310547126581
7697623331044818386269515456334926366572897563400500
7742846280183517070527831839425882145521227251250327
7855121603546981200581762165212827652751691296897789
7932238195734329339946437501907836945765883352399886
8075506164965184775180738168837861091527357929701337
8162177842752192623401942399639168044983993173312731
8232924185707147349566916674687634660915035914677504
8399518671430235219628894890102423325116913619626622
8473267460800591547471830798392868535206946944540724
8576841822524674417161514036427982273348055556214818
8697142617910342598647204516893989422179826088076852
8787783646182799346313767754307809363333018982642090
8810848802521674670883215120185883543223812876952786
8971329612474782464538636993009049310363619763878039
9062184073572399794223406235393808339651327408011116
9166627891981488087797941876876144230030984490851411
9260661826293682836764744779239180335110989069790714
9385786944089552990653640447425576083659976645795096
9466024396409905389607120198219976047599490197230297
9564913982680032973156037120041377903785566085089252
9616730939319872750275468906903707539413042652315011
9794809377245048795150954100921645863754710598436791
9878639167021187492431995700641917969777599028300699
9915368713711936614952811305876380278410754449733078
10040789923115535562561142322423255033685442488917353
10144889911501440648020369068063960672322193204149535
10241503128880339536053299340368006977710650566631954
10381234880673210146739058568557934581403627822703280
10482616570773948327592232845941706525094512325230608
10522918802058777319719839450180888072429661980811197
10677158542502016545090413245809786882778948721859617
10772107838435069186155435662884062257473692284509516
10820849603980134001723930671666823555245252804609722
10953503534226472524250874054075591789781264330331690
110*/
111#ifndef EULER_P0013
112#define EULER_P0013
113#include <stdint.h>
114#include <inttypes.h>
115#include <stdio.h>
116#include "include/macros.h"
117#include "include/bcd.h"
118
119
120static const char numbers[100][50] = {
121 "37107287533902102798797998220837590246510135740250",
122 "46376937677490009712648124896970078050417018260538",
123 "74324986199524741059474233309513058123726617309629",
124 "91942213363574161572522430563301811072406154908250",
125 "23067588207539346171171980310421047513778063246676",
126 "89261670696623633820136378418383684178734361726757",
127 "28112879812849979408065481931592621691275889832738",
128 "44274228917432520321923589422876796487670272189318",
129 "47451445736001306439091167216856844588711603153276",
130 "70386486105843025439939619828917593665686757934951",
131 "62176457141856560629502157223196586755079324193331",
132 "64906352462741904929101432445813822663347944758178",
133 "92575867718337217661963751590579239728245598838407",
134 "58203565325359399008402633568948830189458628227828",
135 "80181199384826282014278194139940567587151170094390",
136 "35398664372827112653829987240784473053190104293586",
137 "86515506006295864861532075273371959191420517255829",
138 "71693888707715466499115593487603532921714970056938",
139 "54370070576826684624621495650076471787294438377604",
140 "53282654108756828443191190634694037855217779295145",
141 "36123272525000296071075082563815656710885258350721",
142 "45876576172410976447339110607218265236877223636045",
143 "17423706905851860660448207621209813287860733969412",
144 "81142660418086830619328460811191061556940512689692",
145 "51934325451728388641918047049293215058642563049483",
146 "62467221648435076201727918039944693004732956340691",
147 "15732444386908125794514089057706229429197107928209",
148 "55037687525678773091862540744969844508330393682126",
149 "18336384825330154686196124348767681297534375946515",
150 "80386287592878490201521685554828717201219257766954",
151 "78182833757993103614740356856449095527097864797581",
152 "16726320100436897842553539920931837441497806860984",
153 "48403098129077791799088218795327364475675590848030",
154 "87086987551392711854517078544161852424320693150332",
155 "59959406895756536782107074926966537676326235447210",
156 "69793950679652694742597709739166693763042633987085",
157 "41052684708299085211399427365734116182760315001271",
158 "65378607361501080857009149939512557028198746004375",
159 "35829035317434717326932123578154982629742552737307",
160 "94953759765105305946966067683156574377167401875275",
161 "88902802571733229619176668713819931811048770190271",
162 "25267680276078003013678680992525463401061632866526",
163 "36270218540497705585629946580636237993140746255962",
164 "24074486908231174977792365466257246923322810917141",
165 "91430288197103288597806669760892938638285025333403",
166 "34413065578016127815921815005561868836468420090470",
167 "23053081172816430487623791969842487255036638784583",
168 "11487696932154902810424020138335124462181441773470",
169 "63783299490636259666498587618221225225512486764533",
170 "67720186971698544312419572409913959008952310058822",
171 "95548255300263520781532296796249481641953868218774",
172 "76085327132285723110424803456124867697064507995236",
173 "37774242535411291684276865538926205024910326572967",
174 "23701913275725675285653248258265463092207058596522",
175 "29798860272258331913126375147341994889534765745501",
176 "18495701454879288984856827726077713721403798879715",
177 "38298203783031473527721580348144513491373226651381",
178 "34829543829199918180278916522431027392251122869539",
179 "40957953066405232632538044100059654939159879593635",
180 "29746152185502371307642255121183693803580388584903",
181 "41698116222072977186158236678424689157993532961922",
182 "62467957194401269043877107275048102390895523597457",
183 "23189706772547915061505504953922979530901129967519",
184 "86188088225875314529584099251203829009407770775672",
185 "11306739708304724483816533873502340845647058077308",
186 "82959174767140363198008187129011875491310547126581",
187 "97623331044818386269515456334926366572897563400500",
188 "42846280183517070527831839425882145521227251250327",
189 "55121603546981200581762165212827652751691296897789",
190 "32238195734329339946437501907836945765883352399886",
191 "75506164965184775180738168837861091527357929701337",
192 "62177842752192623401942399639168044983993173312731",
193 "32924185707147349566916674687634660915035914677504",
194 "99518671430235219628894890102423325116913619626622",
195 "73267460800591547471830798392868535206946944540724",
196 "76841822524674417161514036427982273348055556214818",
197 "97142617910342598647204516893989422179826088076852",
198 "87783646182799346313767754307809363333018982642090",
199 "10848802521674670883215120185883543223812876952786",
200 "71329612474782464538636993009049310363619763878039",
201 "62184073572399794223406235393808339651327408011116",
202 "66627891981488087797941876876144230030984490851411",
203 "60661826293682836764744779239180335110989069790714",
204 "85786944089552990653640447425576083659976645795096",
205 "66024396409905389607120198219976047599490197230297",
206 "64913982680032973156037120041377903785566085089252",
207 "16730939319872750275468906903707539413042652315011",
208 "94809377245048795150954100921645863754710598436791",
209 "78639167021187492431995700641917969777599028300699",
210 "15368713711936614952811305876380278410754449733078",
211 "40789923115535562561142322423255033685442488917353",
212 "44889911501440648020369068063960672322193204149535",
213 "41503128880339536053299340368006977710650566631954",
214 "81234880673210146739058568557934581403627822703280",
215 "82616570773948327592232845941706525094512325230608",
216 "22918802058777319719839450180888072429661980811197",
217 "77158542502016545090413245809786882778948721859617",
218 "72107838435069186155435662884062257473692284509516",
219 "20849603980134001723930671666823555245252804609722",
220 "53503534226472524250874054075591789781264330331690"
221};
222
223uint64_t EMSCRIPTEN_KEEPALIVE p0013() {
224 BCD_int answer, tmp1, tmp2 = new_BCD_int(0, false);
225 uintmax_t ret;
226 for (size_t i = 0; i < 100; i++) {
227 tmp1 = BCD_from_ascii(numbers[i], 50, false);
228 answer = add_bcd(tmp1, tmp2);
229 free_BCD_int(tmp1);
230 free_BCD_int(tmp2);
231 tmp2 = answer;
232 }
233 answer = div_bcd_pow_10(tmp2, tmp2.decimal_digits - 10);
234 free_BCD_int(tmp2);
235 ret = bcd_to_unsigned(answer);
236 free_BCD_int(answer);
237 return ret;
238}
239
240PROGRAM_TAIL("%" PRIu64, p0013)
241#endif