Largest palindrome product: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 424: | Line 424: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
{{works with|Delphi|6.0}} |
{{works with|Delphi|6.0}} |
||
{{libheader|SysUtils,StdCtrls}} |
{{libheader|uses Windows,SysUtils,StdCtrls,Math}} |
||
<syntaxhighlight lang="Delphi"> |
<syntaxhighlight lang="Delphi"> |
||
type TProgress = procedure(Percent: integer); |
|||
function ReverseNum(N: int64): int64; |
function ReverseNum(N: int64): int64; |
||
{Reverse the digit order of a number} |
{Reverse the digit order of a number} |
||
Line 511: | Line 514: | ||
4 9901 9999 99000099 |
4 9901 9999 99000099 |
||
</pre> |
</pre> |
||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |