home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ADA_TUTR.ZIP / FIB.ANS (.png) < prev    next >
ANSi Art File  |  1992-09-04  |  261 b   |  640x160  |  1-bit (2 colors)
   ocr: Our solution to Uutside Assignment 4 (in FIB.ANS): separate (FIBTEST) function FIB(N : in PUSITIVE) return PUSITIVE is ANSWER : POSITIVE := 1; begin if N > 2 then ANSWER := FIBIN - 1) + FIBIN - 2); end if; return ANSWER: end FIB;