% $Id: HailstoneTest.oz,v 1.1 2007/10/29 19:52:21 leavens Exp leavens $ \insert 'Hailstone.oz' \insert 'TestingNoStop.oz' {Test {IterHailstone 4} '==' [4 2 1]} {Test {IterHailstone 7} '==' [7 11 17 26 13 20 10 5 8 4 2 1]} {Test {IterHailstone 9} '==' [9 14 7 11 17 26 13 20 10 5 8 4 2 1]} {Test {IterHailstone 11} '==' [11 17 26 13 20 10 5 8 4 2 1]} {Test {IterHailstone 32} '==' [32 16 8 4 2 1]} {Test {IterHailstone 23} '==' [23 35 53 80 40 20 10 5 8 4 2 1]} {Test {Length {IterHailstone 27}} '==' 71} % The following are perhaps best seen in the browser {Browse {IterHailstone 27}} {Browse {IterHailstone 703}} {Browse {IterHailstone 26623}} {Browse {IterHailstone 626331}}