Mult_15 : constant Natural := Sum_Mults ( 15, Last ) Mult_5 : constant Natural := Sum_Mults ( 5, Last ) Mult_3 : constant Natural := Sum_Mults ( 3, Last ) Sum : constant Natural := (High / First ) * (First + High ) / 2 įunction Sum_35 (Limit : in Natural ) return Natural is High : constant Natural := Last - Last mod First Big_Integers įunction Sum_Mults (First, Last : Natural ) return Natural is Requires upcoming Ada 202x with big integer package. L R13,4(0,R13) restore previous savearea pointer 16.2 Fast version with arbitrary precisionģ60 Assembly * Sum multiples of 3 and 5.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |