Count in factors: Difference between revisions

m
→‎{{header|ALGOL 68}}: Use UPB instead of "⌈" as not all compilers support "⌈"
m (→‎{{header|ALGOL 68}}: Use UPB instead of "⌈" as not all compilers support "⌈")
Line 292:
 
=={{header|ALGOL 68}}==
{{trans|Euphoria}}<syntaxhighlight lang="algol68">OP +:= = (REF FLEX []INT a, INT b) VOID:
OP +:= = (REF FLEX []INT a, INT b) VOID:
BEGIN
[⌈aUPB a + 1] INT c;
c[:⌈aUPB a] := a;
c[⌈aUPB a+1:] := b;
a := c
END;
Line 327 ⟶ 328:
OD;
print ((new line))
OD
OD</syntaxhighlight>
{{out}}
<pre>1 = 1
Line 351 ⟶ 353:
21 = 3 × 7
22 = 2 × 11</pre>
 
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi}}
3,044

edits