17 lines
195 B
Awk
17 lines
195 B
Awk
|
#!/usr/bin/awk -f
|
||
|
|
||
|
function calc_fuel(mass) {
|
||
|
return int(mass / 3) - 2;
|
||
|
}
|
||
|
|
||
|
{
|
||
|
c = calc_fuel($1);
|
||
|
while (c > 0) {
|
||
|
s += c;
|
||
|
c = calc_fuel(c);
|
||
|
}
|
||
|
}
|
||
|
END {
|
||
|
print s;
|
||
|
}
|