Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Kaz Kylheku <643-408-1753@kylheku.com>
Newsgroups: comp.lang.lisp,comp.lang.scheme
Subject: Re: Apprenticeship
Date: Sat, 7 Sep 2024 15:14:10 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 31
Message-ID: <20240907080929.610@kylheku.com>
References: <vbgper$17kkl$1@dont-email.me>
Injection-Date: Sat, 07 Sep 2024 17:14:11 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="d17f774b8e8ae512df45ff47bee034d1";
	logging-data="1496336"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/DGP/XWsMHupA/q8G0BZtgWHDBaWSLc98="
User-Agent: slrn/pre1.0.4-9 (Linux)
Cancel-Lock: sha1:7fwCschqZEzuE4kbyfi/O8tbytQ=
Bytes: 1911

On 2024-09-07, B. Pym <Nobody447095@here-nor-there.org> wrote:
>> (let ((e-mail-address "PGIUHOGT@VGIHKRR.TKZ"))
>>   (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))))
>   "PGIUHOGT@VGIHKRR.TKZ")

TXR Lisp:

13> (mapcar [iffi chr-isupper (op wrap #\a #\z)] "PGIUHOGT@VGIHKRR.TKZ")
"jacobian@pacbell.net"

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: @Kazinator@mstdn.ca