Re: Unicode chars in scheme?

[Mark Polesky]

Tao Cumplido wrote:
> #(define (super-string s)
>   (if (string? s)
>     (let ((n (string-length s))
>           (s2 ""))
>       (do ((i 0 (1+ i))) ((= i n))
>         (let* ((c (cdr (assoc (string-ref s i) super-ref char=?)))
>             (l (string-length c)))
>       (do ((a 0 (1+ a))) ((= a l))
>         (set! s2 (string-append s2 (string (string-ref c a)))))))
>       s2)))
>
> It's a little chaotic but it works.
> A minimal sample of (super-ref) could be:
>
> #(define super-ref
>   (list
>     (cons #\A "Ø")
>   ))

Nice work! Here's one way to simplify it.
- Mark

(define super-ref
  (list
    (cons #\A "Ø")
  ))

(define (char->special x)
  (assoc-ref super-ref x))

(define (super-string str)
  (let ((new ""))
    (string-for-each
      (lambda (x) (set! new (string-append new (char->special x))))
      str)
    new))