home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
me34src.zip
/
me3
/
mc
/
mutt
/
bignum.mut
< prev
next >
Wrap
Lisp/Scheme
|
1995-01-14
|
1KB
|
59 lines
; bignum : convert a number to a big number
; ###
; eg 2 => # #
; #
; #
; #
; #####
(string r1 r2 r3 r4 r5 r6 r7)
(defun
dump-row HIDDEN {(extract-elements (arg 0)(* (arg 1) 7) 7)}
numvert HIDDEN
{
(if (< (arg 0) 10) (dump-row (arg 1) (arg 0))
(concat
(numvert (/ (arg 0) 10)(arg 1))
(dump-row (arg 1) (- (arg 0)(* 10 (/ (arg 0) 10))))
)
)
}
bignum ; input: number to make big
{
(msg (numvert (arg 0) r1))
(msg (numvert (arg 0) r2))
(msg (numvert (arg 0) r3))
(msg (numvert (arg 0) r4))
(msg (numvert (arg 0) r5))
(msg (numvert (arg 0) r6))
(msg (numvert (arg 0) r7))
}
)
(defun MAIN
{
; initialize each row
(r1
;1234567.234567.234567.234567.234567.234567.234567.234567.234567.234567.
" ### # ### ### # ##### ## ##### ### ### ")
(r2
"# ## ## # # # # ## # # # # # # # ")
(r3
"# # # # # # # # # # # # # # # ")
(r4
"# # # # # ## # # #### #### # ### #### ")
(r5
"# # # # # # ##### # # # # # # # ")
(r6
"## # # # # # # # # # # # # # # ")
(r7
" ### ##### ##### ### # ### ### # ### ## ")
})
(const NUMBER 0x03)
(defun
MAIN
{
(bignum (convert-to NUMBER (ask "n = ")))
})