Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connections
Warning: mysqli::query(): Couldn't fetch mysqli in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\index.php on line 66
Article <vbgper$17kkl$1@dont-email.me>
Deutsch   English   Français   Italiano  
<vbgper$17kkl$1@dont-email.me>

View for Bookmarking (what is this?)
Look up another Usenet article 
Path: ...!feeds.phibee-telecom.net!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <Nobody447095@here-nor-there.org>
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=
Bytes: 1534

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