Anonymous user
Ethiopian multiplication: Difference between revisions
no edit summary
m (→Implementation) |
No edit summary |
||
Line 1,501:
<lang smalltalk>(17 ethiopianMultiplyBy: 34 withTutor: true) displayNl.</lang>
=={{header|SNOBOL4}}==
<lang snobol4> l = trim(input)
r = trim(input)
s = 0
next s = ne(l,(l / 2) * 2) s + r
r = r * 2
l = ne(1,l) l / 2 :s(next)
stop output = s
end</lang>
=={{header|SNUSP}}==
| |||