Rocksolid Light

News from da outaworlds

mail  files  register  groups  login

Message-ID:  

You will reach the highest possible point in your business or profession.

comp / comp.lang.scheme / re: Apprenticeship

SubjectAuthor
* re: ApprenticeshipB. Pym
`- Re: ApprenticeshipKaz Kylheku

1
Subject: re: Apprenticeship
From: B. Pym
Newsgroups: comp.lang.lisp, comp.lang.scheme
Organization: A noiseless patient Spider
Date: Sat, 7 Sep 2024 05:48 UTC
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Nobody447095@here-nor-there.org (B. Pym)
Newsgroups: comp.lang.lisp,comp.lang.scheme
Subject: re: Apprenticeship
Date: Sat, 7 Sep 2024 05:48:14 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 18
Message-ID: <vbgper$17kkl$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Sat, 07 Sep 2024 07:48:14 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="1890f914c1703e0604d6edeadffbf5ce";
logging-data="1299093"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18xAJ+ELkzhk8+gch8pCH7D"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:YK4cWayrDqcWtvzkZDqDo8hEoJc=
View all headers

> (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")

Subject: Re: Apprenticeship
From: Kaz Kylheku
Newsgroups: comp.lang.lisp, comp.lang.scheme
Organization: A noiseless patient Spider
Date: Sat, 7 Sep 2024 15:14 UTC
References: 1
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: 643-408-1753@kylheku.com (Kaz Kylheku)
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=
View all headers

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

1

rocksolid light 0.9.8
clearnet tor