home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / me_cd25.zip / MC2MUTT.ZIP / BIGNUM.MUT < prev    next >
Lisp/Scheme  |  1992-11-09  |  1KB  |  59 lines
  1.     ; bignum : convert a number to a big number
  2.     ;        ###
  3.     ; eg 2 =>      #   #
  4.     ;           #
  5.     ;          #
  6.     ;         #
  7.     ;            #####
  8.  
  9. (string r1 r2 r3 r4 r5 r6 r7)
  10. (defun
  11.   dump-row HIDDEN {(extract-elements (arg 0)(* (arg 1) 7) 7)}
  12.   numvert HIDDEN
  13.   {
  14.     (if (< (arg 0) 10) (dump-row (arg 1) (arg 0))
  15.       (concat
  16.     (numvert (/ (arg 0) 10)(arg 1))
  17.     (dump-row (arg 1) (- (arg 0)(* 10 (/ (arg 0) 10))))
  18.       )
  19.     )
  20.   }
  21.   bignum    ; input: number to make big
  22.   {
  23.     (msg (numvert (arg 0) r1))
  24.     (msg (numvert (arg 0) r2))
  25.     (msg (numvert (arg 0) r3))
  26.     (msg (numvert (arg 0) r4))
  27.     (msg (numvert (arg 0) r5))
  28.     (msg (numvert (arg 0) r6))
  29.     (msg (numvert (arg 0) r7))
  30.   }
  31. )
  32.  
  33. (defun MAIN
  34. {
  35.     ; initialize each row
  36. (r1
  37. ;1234567.234567.234567.234567.234567.234567.234567.234567.234567.234567.
  38. " ###      #     ###    ###        # #####    ##   #####   ###    ###   ")
  39. (r2
  40. "#  ##    ##    #   #  #   #      ## #       #         #  #   #  #   #  ")
  41. (r3
  42. "# # #     #        #      #     # # #      #         #   #   #  #   #  ")
  43. (r4
  44. "# # #     #       #     ##     #  # ####   ####     #     ###    ####  ")
  45. (r5
  46. "# # #     #     #         #   #####     #  #   #    #    #   #      #  ")
  47. (r6
  48. "##  #     #    #      #   #       # #   #  #   #    #    #   #     #   ")
  49. (r7
  50. " ###    #####  #####   ###        #  ###    ###     #     ###    ##    ")
  51. })
  52.  
  53. (const NUMBER    0x03)
  54. (defun
  55.   MAIN
  56.   {
  57.     (bignum (convert-to NUMBER (ask "n = ")))
  58.   })
  59.