blaise/vendor/qbe/minic/test/euler9.c
Graeme Geldenhuys 25de8be212 Fix compilation errors; vendor QBE 1.2; end-to-end Hello World works
Fix TProgram.Uses reserved-word clash (renamed to UsedUnits), nested
brace-comment in uParser.pas, and missing uAST in Blaise.pas uses clause.

Vendor QBE 1.2 source in vendor/qbe/ (built locally with make; binary
excluded via .gitignore). End-to-end pipeline confirmed: Blaise compiles
Hello World and Calc (6*7=42) to native x86_64 Linux binaries.

71/71 FPCUnit tests passing.
2026-04-20 16:38:57 +01:00

28 lines
340 B
C

#include <stdio.h>
main()
{
int i;
int a;
int b;
int c;
int d;
for (a = 1; a < 1000; a++) {
for (b = a + 1; b < 1000; b++) {
d = a*a + b*b;
for (i = 0; i < 1000; i++) {
if (i * i == d) {
c = i;
if (b < c && a+b+c == 1000) {
printf("%d\n", a*b*c);
return 0;
}
break;
}
}
}
}
}