Ethiopian multiplication: Difference between revisions

m
Line 4,565:
578</pre>
 
=={{header|S_BASICS-BASIC}}==
<lang basic>
$constant true = 0FFFFH
$constant false = 0
 
function half(in = integer) = integer
end = in / 2
 
function twice(in = integer) = integer
end = in + in
 
rem - return true if even, otherwise false
function even(in = integer) = integer
var kone = integer
kone = 1 rem - only variables are compared bitwise
end = ((in and kone) = 0)
 
rem - return i * j, optionally showing steps
Line 4,608:
 
end</lang>
 
 
 
=={{header|Scala}}==
211

edits