Anonymous user
Ethiopian multiplication: Difference between revisions
→{{header|SNOBOL4}}
(→{{header|SNOBOL4}}: (Does SNOBOL4 have functions)? Marked incorrect;program needs to define three functions to halve double and test odd/even) |
|||
Line 1,486:
=={{header|SNOBOL4}}==
Version "as stated in the task description". BOOORING!
<lang snobol4>
define('halve(num)') :(halve_end)
halve eq(num,1) :s(freturn)
halve = num / 2 :(return)
halve_end
define('double(num)') :(double_end)
double double = num * 2 :(return)
double_end
define('odd(num)') :(odd_end)
odd eq(num,1) :s(return)
eq(num,double(halve(num))) :s(freturn)f(return)
odd_end l = trim(input)
r = trim(input)
s = 0
next s = odd(l) s + r
r = double(r)
l = halve(l) :s(next)
stop output = s
end</lang>
{{incorrect|SNOBOL4|program needs to define three functions to halve double and test odd/even as stated in the task description.}}
<lang snobol4> l = trim(input)
| |||