fork download
  1. ; 1-800-ppraxis
  2.  
  3. (define (telemap c)
  4. (case (char-upcase c)
  5. ((#\A #\B #\C) #\2)
  6. ((#\D #\E #\F) #\3)
  7. ((#\G #\H #\I) #\4)
  8. ((#\J #\K #\L) #\5)
  9. ((#\M #\N #\O) #\6)
  10. ((#\P #\Q #\R #\S) #\7)
  11. ((#\T #\U #\V) #\8)
  12. ((#\W #\X #\Y #\Z) #\9)
  13. (else c)))
  14.  
  15. (define (telemapper str)
  16. (list->string
  17. (filter char-numeric?
  18. (map telemap
  19. (string->list str)))))
  20.  
  21. (display (telemapper "1-800-PPRAXIS")) (newline)
Success #stdin #stdout 0.02s 50224KB
stdin
Standard input is empty
stdout
18007772947