Revision as of 00:11, 17 December 2022 (view source) Querfeld (talk \| contribs) (add OCaml) ← Older edit		Revision as of 09:19, 17 December 2022 (view source) Querfeld (talk \| contribs) (OCaml: faster exponentiation) Newer edit →
Line 1,295: =={{header\|OCaml}}== <syntaxhighlight lang="ocaml">~~let~~(* ~~pow~~speed-optimized xexponentiation; =doesn't support exponents < 2 ) let rec ~~aux acc~~pow b n = ~~function~~ if n \|land 1 ->= ~~acc b~~0 then if n = 2 then b * b else pow (b * b) (n lsr 1) ~~\| 0 -> acc~~ else if \|n y= ->3 ~~aux~~then ~~(if~~b y* ~~land~~b 1* ~~= 0 then acc~~b else ~~acc~~b * b)pow (b * b) (yn lsr 1) in ~~aux 1 x~~ let is_disarium n =

Disarium numbers: Difference between revisions

Disarium numbers (view source)