22a. Digits V
-
(
transl8: number -> number
) Write a function that changes all of the 8 digits to zeros.(check-expect (transl8 8) 0) (check-expect (transl8 128) 120) (check-expect (transl8 847) 47) (check-expect (transl8 68687) 60607)
-
(
i88 : number -> number
) Write a function that removes all of the digits 8 from a number.(check-expect (i88 128) 12) (check-expect (i88 847) 47) (check-expect (i88 81838) 13) (check-expect (i88 8474850826) 4745026)