13 lines
354 B
Text
13 lines
354 B
Text
procedure hq9(string code)
|
|
integer accumulator = 0
|
|
for i=1 to length(code) do
|
|
switch(upper(code[i]))
|
|
case 'H': printf(1,"Hello, world!\n")
|
|
case 'Q': printf(1,"%s\n", code);
|
|
case '9': ninetyninebottles()
|
|
case '+': accumulator += 1
|
|
end switch
|
|
end for
|
|
end procedure
|
|
|
|
hq9("hq9+HqQ+Qq")
|