20 lines
771 B
Text
20 lines
771 B
Text
நிரல்பாகம் hailstone ( எண் )
|
|
பதிப்பி "=> ",எண் #hailstone seq
|
|
@( எண் == 1 ) ஆனால்
|
|
பின்கொடு எண்
|
|
முடி
|
|
|
|
@( (எண்%2) == 1 ) ஆனால்
|
|
hailstone( 3*எண் + 1)
|
|
இல்லை
|
|
hailstone( எண்/2 )
|
|
முடி
|
|
முடி
|
|
|
|
|
|
எண்கள் = [5,17,19,23,37]
|
|
@(எண்கள் இல் இவ்வெண்) ஒவ்வொன்றாக
|
|
பதிப்பி "****** calculating hailstone seq for ",இவ்வெண்," *********"
|
|
hailstone( இவ்வெண் )
|
|
பதிப்பி "**********************************************"
|
|
முடி
|