68 lines
1.6 KiB
Text
68 lines
1.6 KiB
Text
|
/* naive string-to-int conversion */
|
||
|
|
int int_of_string(string s) {
|
||
|
|
var result = 0;
|
||
|
|
var chars = array_of_string(s);
|
||
|
|
|
||
|
|
for (var i = 0; i < length_of_string(s); i = i + 1;) {
|
||
|
|
result = result * 10;
|
||
|
|
/* ascii('0') == 48 */
|
||
|
|
result = result + chars[i] - 48;
|
||
|
|
}
|
||
|
|
|
||
|
|
return result;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* returns true if a is a multiple of b. naive */
|
||
|
|
bool is_multiple_of(int a, int b) {
|
||
|
|
for (var i = 0;; i = i + 1;) {
|
||
|
|
if (b * i > a) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
if (b * i == a) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
computes the general fizzbuzz of n.
|
||
|
|
first argument should be the length of argv
|
||
|
|
argv should have an unused element at index 0,
|
||
|
|
and then contiguous pairs of strings of integers and their replacements.
|
||
|
|
(e.g. pass "3 fizz 5 buzz" as command line arguments for classic fizzbuzz)
|
||
|
|
*/
|
||
|
|
string generalFizzBuzz(int argc, string[] argv, int n) {
|
||
|
|
var s = "";
|
||
|
|
|
||
|
|
for (var j = 1; j < argc; j = j + 2;) {
|
||
|
|
var modulo_base = argv[j];
|
||
|
|
|
||
|
|
if (is_multiple_of(n, int_of_string(modulo_base))) {
|
||
|
|
s = string_cat(s, argv[j + 1]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (length_of_string(s) == 0) {
|
||
|
|
return string_of_int(n);
|
||
|
|
} else {
|
||
|
|
return s;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int program (int argc, string[] argv) {
|
||
|
|
for (var i = 1; i <= 100; i = i + 1;) {
|
||
|
|
print_string(generalFizzBuzz(argc, argv, i));
|
||
|
|
print_string("\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
/* as far as i can tell, the testing suite trims the last character
|
||
|
|
if it's a newline. so print an extra newline before the '0' from our
|
||
|
|
return gets concatenated to our stdout
|
||
|
|
*/
|
||
|
|
print_string("\n");
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|