1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • re: Apprenticeship

    From B. Pym@21:1/5 to All on Sat Sep 7 05:48:14 2024
    XPost: comp.lang.scheme

    (let ((e-mail-address "[email protected]"))
    (loop with new-string = (make-string (length e-mail-address))
    for count from 0 to (1- (length e-mail-address))
    for char-code = (char-code (aref e-mail-address count))
    for new-char-code =
    (if (and (> char-code 64)(< char-code 123))
    (+ (mod (+ 13 char-code) 52) 65)
    char-code)
    do (setf (aref new-string count) (code-char new-char-code))
    finally (return new-string)))

    Gauche Scheme

    (string-map
    (^c (let1 n (char->integer c)
    (integer->char
    (if (< 64 n 123) (+ (modulo (+ 13 n) 52) 65) n))))
    "[email protected]")

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Kaz Kylheku@21:1/5 to B. Pym on Sat Sep 7 15:14:10 2024
    XPost: comp.lang.scheme

    On 2024-09-07, B. Pym <[email protected]> wrote:
    (let ((e-mail-address "[email protected]"))
    (loop with new-string = (make-string (length e-mail-address))
    for count from 0 to (1- (length e-mail-address))
    for char-code = (char-code (aref e-mail-address count))
    for new-char-code =
    (if (and (> char-code 64)(< char-code 123))
    (+ (mod (+ 13 char-code) 52) 65)
    char-code)
    do (setf (aref new-string count) (code-char new-char-code))
    finally (return new-string)))

    Gauche Scheme

    (string-map
    (^c (let1 n (char->integer c)
    (integer->char
    (if (< 64 n 123) (+ (modulo (+ 13 n) 52) 65) n))))
    "[email protected]")

    TXR Lisp:

    (mapcar [iffi chr-isupper (op wrap #\a #\z)] "[email protected]")
    "[email protected]"

    The pacbell.net domain is defunct, so no point in concealing.

    --
    TXR Programming Language: http://nongnu.org/txr
    Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal
    Mastodon: @[email protected]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)