34

課題：任意の長さの入力を読み取り、入力のROT13を生成する。AZ以外のすべての文字をそのまま出力にコピーし、可能であれば大文字と小文字を区別する必要があります。

標準ストリームを読み書きできる言語はどれも公平なゲームです。

code-golf cryptography

— ミフザフォックス
ソース

3

私はちょうどFYI ROT13、削除して問題は、タグであってはならない

— ニックBERARDI

2

A-Za-z（大文字と小文字の両方をカウントする）を意味しませんか？

— ジョーイアダムス

5

@Chris Jester-Young、ウィキペディアのこのカテゴリに属します。これは暗号化の一部であり、最も難しいものではありません。とにかく、私はもうこのサイトをフォローしていません。コミュニティは私をがっかりさせました。ごめんなさい。GL HF。

— ナキロン

17

言ってXOR暗号化ではないことは言うようなものです+ bは数学ではありません。

— ナキロン

3

タグは、質問を分類し、同様の質問を検索するのに役立ちます。暗号化（ギリシャクリプトスから、「隠された、秘密の」;とgraphein、「書き込み」）タグ、特には、暗号化と復号化の問題のためです。最新のアプリケーションに対して安全なものだけでなく、すべての暗号化と復号化。

— Angs

25

Bash、23バイト

正規の23文字の回答：

tr A-Za-z N-ZA-Mn-za-m

— クリス・ジェスター・ヤング
ソース

1

私は現時点ではbashへのアクセスなしだけど、私は、これは動作するはずだと思う：tr A-za-m N-ZA-z（16文字）

— Nabb

2

@Nabb：はじめまして、GolfScriptマイスター！：-DIは、ここでの解決策が「AZ以外のすべての文字をそのまま出力にコピーする」という規定を破ると思います。

— クリスジェスターヤング

@クリス：うん、あなたが正しいように見えます。

— ナブ

@Nabb：いいえ、私には彼が間違っているように見えます。または、例を示していただけますか？

— ユーザー不明

2

@user unknown：[\\]^_`入力を入力します。少なくとも私が持っているバージョンでは、NOPQRSではなくとして返されます。（これらは、間にあるASCIIで6つの文字であるとは明らかに、他のすべての文字が正常に動作します。）[\\]^_`trZa

— クリス・ジェスター・ヤング

20

バッシュ-5文字

rot13

— ニブラー
ソース

18

これまでに2つの下票（コメントなし）、ただし質問に対する下票はありません。これは、些細なコードゴルフを依頼することは問題ないが、些細な答えを与えることは問題ないという意味です。より難しいcodegolfsください！

— ニブラー

8

どのbashバージョンですか？組み込みのrot13はありません。bash --version GNU bash, Version 4.0.33(1)-release (i486-pc-linux-gnu)

— ユーザー不明

12

私はこれをrot13 - 0 chars... として提出したと思います;）

— boothby

2

「TISは私の友人ではなく、バッシュのcoreutils

— TheDoctor

3

えーと…いや私はbash（Ubuntuの13.10は）「あなたがすることで、このプログラムをインストールすることができ、コマンドが見つからないと言うsudo apt-get install bsdgames」

17

Python 2、34バイト

print raw_input().encode('rot13')

— ファン
ソース

1

-1組み込みライブラリを使用しているのはごまかしだと思います。

— グレンネルソン

16

私が参加したすべてのコードゴルフでそれらを使用しました...また、Pythonの標準ライブラリを使用するのが不正行為である場合、trを使用しないのはどうですか？

— フアン

3

@Anonいずれの場合でも、それはあなたがただ無視するアンサーです。ターゲット外ではなく、OPやコミュニティによって設定されたルールはありません。確かに、恐らく私のものは、お尻を蹴るtrを使用するような、受賞歴のあるソリューションではありません。しかし、それは冗談ではありません。他の人がそうするように、Pythonの力を利用してカウントを減らしています。

— フアン

2

@Glenn：それどころか、そういうコードゴルフのことを見たことがない。codegolf.com、golf.shinh.org、SPOJ SHORTENも同様です。

— -hallvabo

9

@Glenn、ライブラリ関数は公正なゲームだと思います。誰のライブラリにも入らないように、または明確に除外するために十分に興味深いものにするのは、ゴルフの問題次第です。

— ニブラー

15

Befunge- 7x30 = 210 6x26 = 156文字

大文字と小文字の両方をサポートし、無制限の入力をサポートする新しいストリーミングバージョン。

v,<               <<     <
  ^-4-9<    >:"A"\`|
     >:"a"\`|     #>:"Z"`|
>~:0`| #    >:"z"`|
,    @ |    <`"m":<v`"M":<
^  +4+9<    ^      <

古いバージョン

これにより、値が独自のソースコード内に保存されます。格納された値を受け取ったのと同じ順序で試して出力するのがいかに恐ろしいかを実際に示しています。小文字のみをサポートします。

vp0p11:+1g11<      < <
v                    ^-4-9<
v    >:"a"\`|>:"z"`|>:"m"`|
>~:0`|      >^     >^#
                     ^+4+9<
     >$011g1+0p>12g1+:12p0g:v
               ^           ,_@

http://www.quirkster.com/iano/js/befunge.htmlをインタープリターとして使用すると、これがどのような制限を持っているのか正確にはわかりません。

— Nemo157
ソース

行末の空白を削除できます。

— ザカリー

10

ルビー-60 57 38 37文字

編集：そして、Rubyの文字列にtrメソッドがあることに気付きました。

puts$<.read.tr'A-Za-z','N-ZA-Mn-za-m'

テスト

input = "The challenge: To read an input of arbitrary length and produce the ROT13 of the input. All characters besides A-Z should be copied to the output verbatim, and case should be preserved if possible.

Any language that can read and write standard streams is fair game."

output = `echo '#{input}' | ruby golf-rot13.rb`

puts "Input:"
puts input
puts "-------"
puts "Output:"
puts output

与える：

Input:
The challenge: To read an input of arbitrary length and produce the ROT13 of the input. All characters besides A-Z should be copied to the output verbatim, and case should be preserved if possible.

Any language that can read and write standard streams is fair game.
-------
Output:
Gur punyyratr: Gb ernq na vachg bs neovgenel yratgu naq cebqhpr gur EBG13 bs gur vachg. Nyy punenpgref orfvqrf N-M fubhyq or pbcvrq gb gur bhgchg ireongvz, naq pnfr fubhyq or cerfreirq vs cbffvoyr.

Nal ynathntr gung pna ernq naq jevgr fgnaqneq fgernzf vf snve tnzr.

— Nemo157
ソース

あなたは後にスペースを必要としないputs、と「Azが」「A-ZA-Z」のショートカットです

— Ventero

1

@Ventro：ちょっとしたテストの後、'A-z'実際には'A-Z[\]^_a-z ' , damn ascii having characters between Z`とa。

— Nemo157

1

基本的には同じですが、35文字ですputs gets.tr'A-Za-z','N-ZA-Mn-za-m'。

— マイケルコール

@Michael：例外getsは、EOFまでの$ < 。read 読み取りを使用して最初の行のみを返します。この質問には、入力に新しい行を含めることができるかどうかについては何も言われていないので、注意を怠ってしまいました。

— Nemo157

結構なことですが、運動仕様では「任意の長さ」しか言及されておらず、改行については何も述べられていないため、codegolfの簡潔さについては誤解します;

— Michael Kohl

10

vim、5回のキーストローク

通常モードで、テキストがすでにバッファーに書き込まれていると仮定します。

ggg?G

または、vimgolfの慣習に従わない：

g?GZZ

次のような端末コマンドとして呼び出すこともできます。

$ vim -c 'norm g?G' -
< your text here ...
... multiple lines if you want ...
... terminate input with ctrl+D on a blank line >

後者は8文字の「プログラム」としてカウントされると思います（norm g?G）

— ダニエロ
ソース

norm g?G以下のために短いnormal g?Gことが8つの文字になります。

— パトリックオスシティ14

1行目から開始すると安全に想定できるので、最初の行は省略ggできます。ファイルが開いているときに3つのキーストロークを言うでしょう。

— パトリックオスシティ14

1

vimgolfの規則を使用する場合（ファイルを開いたばかりのバニラvimで開始しますが、保存して終了する必要があります）、5（g?GZZ）も取得します。

— ホタル14年

7

C- 83 79文字

main(c,b){while((c=getchar())>=0)b=c&96,putchar(isalpha(c)?b+1+(c-b+12)%26:c);}

読み取り可能なバージョン：

#include <ctype.h>
#include <stdio.h>

int main(void)
{
    int c, base;

    while ((c = getchar()) >= 0) {
        if (isalpha(c)) {
            base = (c & 96) + 1; /* First letter of the upper or lower case. */
            c = base + (c - base + 13) % 26;
        }
        putchar(c);
    }

    return 0;
}

— ジョーイ・アダムス
ソース

1

カウントに含めるヘッダーを含めていますか？

— -JPvdMerwe

@JPvdMerwe：ゴルフバージョンにはヘッダーを含めませんでしたし、必要もありませんでした。

— ジョーイアダムス

putcharの前にcoma演算子を使用して、中括弧のペアを削除できます。

— アレクサンドル

main（c、b）を説明してもらえますか？これを見るのは初めてです。

— アレクサンドル

2

@AlexandruほとんどのCコンパイラは、任意のパラメーターでmainをサポートします。また、元のC標準では、型のない引数はintであると定義されています。したがって、実際にintを記述することなく、intを宣言できます。

— フアン

7

Python（117バイト）

以下は、rot13()-method を回避するPythonバージョンです。

import sys
print"".join([chr(x/32*32+1+(x%32+12)%26if 64<x<91or 96<x<123 else x)for x in map(ord,sys.stdin.read())])

— JPvdMerwe
ソース

raw_inputは、すべての入力ではなく1行を返します。

— アレクサンドル

をimport sys使用する必要がありますsys.stdin.read()。

— アレクサンドル

@Alexandru：やる

— -JPvdMerwe

あなたは排除する場合-2バイト[]：リストカンプジェネレータ作るためにtio.run/...

— connectyourcharger

7

tr///Perlのソリューション（39文字）、ボイラープレートは次の方法で削除できます-p。

while(<>){y/a-zA-Z/n-za-mN-ZA-M/;print}

使用-p（追加のスイッチを含む23文字）：

perl -pe'y/a-zA-Z/n-za-mN-ZA-M/'

— アノン。
ソース

pに1文字追加しますが、定型文を削除してください！

— JB

7

R、37バイト

example("chartr");cat(rot(scan(,"")))

example("chartr")の例を実行します。これには、デフォルトである関数chartrが含まれます。...rotROT13

— ムネル
ソース

5

DC（DC自体の場合は~~111~~ 108）

わかりました。ここでは、コードの正しい形式に変換するために、（ほとんど）dcとsedおよびodマジックが使用されています。入力項目（echo -n MESSAGE |）をカウントしない場合、160バイトです。

od -An -t dC|sed 's/^\ *//;s/\ \{2,3\}/\n/g'|dc -e'[13+26%]sm[65-lmx65+]su[97-lmx97+]sl[96<b64<dPc]sa[91>c]sd[123>e]sb[lux]sc[llxdd]se[ddddlaxlrx]sy[?z0<y]dsrx'

興味深い点として、dcプログラム自体の長さは108バイトしかないため、非ライブラリpythonバージョンよりも短くなっています。それも、ケースや句読点を保持し、かつビート上記の提出にJavascriptを！odの出力をより良く解析できるか、またはそれを完全に置き換えることができればよいのです。

編集：質問が10P私にさらに3バイトを節約する末尾の改行を示していないことに注意する価値があります。

編集2：入力の形式の仕様はありませんので、私のプログラムに便利なように入力されていると思います：P

— ひいと
ソース

5

Befunge-93、85（グリッド：41x3 = 123）

これは古くからの質問ですが、Befungeの答えを少しだけ投稿するために復活させたいと思いました。

#v_~::" "/2%" "*-::"@"`!#v_"Z"#v`#!_1
v> "M"`2*1\-34*1+*+    1:>$!   _:"."-!#@_
>,^

ここでテストできます。一度に1文字を入力してください。.文字を入力すると終了します（"."2行目の右側近くを変更することで変更できます）。大文字と小文字、句読点、および入力制限なしで動作します。

私はこれが多くの賛成票などを得るとは思わないが、~~Befungeが実際にどれだけ素晴らしいかを~~他の答えよりも少しだけ上手くできることを示したかっただけだ。

I could probably make it even shorter in Befunge-98.

— Kasran
ソース

You can add my snippet from here to have an inline interpreter, if you want. :)

— Ingo Bürk

Ooh, I haven't really investigated snippets yet. I'll take a look, thanks!

— Kasran

This doesn't work if there is a space in the input. It goes into an infinite loop in the sequence >$! _ because you've got two zeros on the stack at that point when you are expecting a non-zero value.

— James Holderness

4

PHP - 103 98 80 characters

(not using str_rot13())

<?=preg_replace('#[a-zA-Z]#e','chr(($x=ord("\0"))-$x%32+1+($x%32+12)%26)',`cat`);

— Arnaud Le Blanc
ソース

4

Delphi, 110

var c:Char;begin repeat Read(c);Write(Chr(Ord(c)+(Ord(c in['A'..'M'])-Ord(c in['N'..'Z']))*13));until EOF;end.

— PatrickvL
ソース

var c:Char;begin repeat Read(c);Write(Chr(Ord(c)+(Ord(c in['A'..'M'])-Ord(c in['N'..'Z']))*13));until EOF;end. saves one character :)

— Wouter van Nifterick

@Wouter van Nifterick : Good spot! I'll update it accordingly

— PatrickvL

4

Haskell, 100 characters

a%b=([a..b]++)
main=interact$map$toEnum.((0%64$78%90$65%77$91%96$110%122$97%109$[123..])!!).fromEnum

— MtnViewMark
ソース

3

Perl6 (54)

$*IN.lines».trans("a..zA..Z"=>"n..za..mN..ZA..M").say

— Bruce Armstrong
ソース

3

Java 251 chars

public class r{public static void main(String[] a){String s = a[0];for(int i=0;i<s.length();){char c=s.charAt(i++);if(c>='a'&&c<='m')c+=13;else if(c>='n'&&c<='z')c-= 13;else if(c>='A'&&c<='M')c+=13;else if(c>='A'&&c <='Z')c-=13;System.out.print(c);}}}

— Clyde Lobo
ソース

3

Python 3 (107)

Ok, I promise to stop answering this question now, but I felt compelled to beat the DC answer in Python. This probably reflects poorly on me as a person :).

import sys;[print(x.isalpha()and chr((ord(x)&96)+1+(ord(x)%32+12)%26)or x,end='')for x in sys.stdin.read()]

3

C: 69 68 characters

Alright, I know this thread is long dead, but I couldn't stand the (long) C-solution which doesn't even compile on Clang (but does on GCC).

main(c){putchar(isalpha(c=getchar())*((c|32)<110?13:-13)+c);main();}

~~It is probably almost still squeezable.~~ It certainly was squeezable. And not only was it squeezable, it was possible to make it recursive.

— Fors
ソース

3

05AB1E, 13 12 bytes

Saved a byte thanks to robbie0630

ADu)øJD2äRJ‡

Try it online!

Explanation

ADu           # push lower-case and uppercase alphabet
   )øJ        # zip, flatten and join, producing aAbB..zZ
      D2äRJ   # split a copy in 2 pieces, reverse and join producing nNoO..mM
           ‡  # translate input by replacing members of the alphabet 
              # with the corresponding member of the rot-13 alphabet
              # implicitly display

— Emigna
ソース

I ran through this with --debug, and it seems like the ˜ is a no-op in this case and can be cut out.

— robbie

@robbie0630: True. No idea why I had that in. Thank you :)

— Emigna

2

PHP - 41 Characters

while($r=fgets(STDIN))echo str_rot13($r);

— ircmaxell
ソース

5

-1 for rep-whoring.

— Raynos

2

JavaScript 1.8, 106

alert(prompt().replace(/\w/g,function(c)String.fromCharCode(c.charCodeAt()+(c.toLowerCase()<'n'?13:-13))))

JavaScript, 115

alert(prompt().replace(/\w/g,function(c){return String.fromCharCode(c.charCodeAt()+(c.toLowerCase()<'n'?13:-13))}))

This solution solves the problem by adding 13 to the character code if the character in question is in the first half of the alphabet, or subtracting 13 if it's in the second half.

— Casey Chu
ソース

You can save 7 characters by replacing +(c.toLowerCase()<'n'?13:-13)) with -13+26*/[a-m]/i.test(c).

— Jacob

2

CHIQRSX9+, 1

You just have to use the right tool for the problem.
CHIQRSX9+ is Turing complete, and it can read and write from standard channels with C.

— Johannes Kuhn
ソース

5

@nyuszika7h The language was invented before this question was written, so it is valid.

— Johannes Kuhn

1

It's still one of the things it was invented for, though. Seems like cheating to me.

— nyuszika7h

7

@nyuszika7h And golfscript was invented to win in code-golf challenges. Do you think that is cheating too?

— Johannes Kuhn

2

@Mego It's hardly fair to apply those standards here when they were written a year after this answer.

— Doorknob

2

MetaGolfScript is forbidden by a different rule

— Mego

2

C, 136 bytes

I have never felt like any of my solutions are good enough to post on here, but made this for fun, and figured that it will be my gateway drug into code golf.

#define z(x) c>=x&&c<x+13
#define q(w) c>=w&&c<w+13
main(c){for(;(c=getchar())>=0;putchar(z('A')||z('a')?c+13:q('M')||q('m')?c-13:c));}

— Tormyst
ソース

4

Welcome to Programming Puzzles and Code Golf Stack Exchange. Great first answer. And just for the record, we all feel that way sometimes, just know that anything that you create is "good enough" somewhere.

— GamrCorps

2

Everything here on PPCG is just for fun (or imaginary internet points) -- please, don't feel the work you've done to craft a solution isn't "good enough"

— cat

Thanks for all the support. I think posting something was all I needed to get my head in gear. I am going to try my hand at more of these challenges soon.

— Tormyst

2

Javascript, 177 bytes

This assumes that there are two functions, print and readLine:

f=String.fromCharCode;print(readLine().replace(/[a-z]/g,function(a){return f((a.charCodeAt(0)-84)%25+97);}).replace(/[A-Z]/g,function(a){return f((a.charCodeAt(0)-52)%25+65);}))

— jrtapsell
ソース

2

LispLisp (16,636)

I'm sorry.

((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
  (lisp lisp))
 (((lisp (lisp (lisp (lisp lisp))))
   ((lisp (lisp (lisp lisp)))
    ((lisp (lisp (lisp (lisp lisp))))
     (((lisp (lisp (lisp (lisp lisp))))
       ((lisp (lisp (lisp lisp)))
        (((lisp (lisp (lisp (lisp lisp))))
          (((lisp (lisp (lisp (lisp lisp))))
            ((lisp (lisp (lisp lisp)))
             (lisp (lisp (lisp (lisp lisp))))))
           (((lisp (lisp (lisp (lisp lisp))))
             ((lisp (lisp (lisp lisp)))
              (lisp (lisp (lisp lisp)))))
            (((lisp (lisp (lisp (lisp lisp))))
              ((lisp (lisp (lisp lisp)))
               (lisp (lisp (lisp (lisp lisp))))))
             (((lisp (lisp (lisp (lisp lisp))))
               ((lisp (lisp (lisp lisp)))
                ((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))))
              (lisp (lisp (lisp lisp))))))))
         ((lisp (lisp (lisp lisp)))
          (lisp (lisp (lisp lisp)))))))
      (((lisp (lisp (lisp (lisp lisp))))
        ((lisp (lisp (lisp lisp)))
         (((lisp (lisp (lisp (lisp lisp))))
           (((lisp (lisp (lisp (lisp lisp))))
             ((lisp (lisp (lisp lisp)))
              (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
               ((lisp (lisp (lisp lisp)))
                (lisp (lisp (lisp lisp)))))))
            (((lisp (lisp (lisp (lisp lisp))))
              (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
               ((lisp (lisp (lisp lisp)))
                (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                 ((lisp (lisp (lisp lisp)))
                  ((lisp (lisp (lisp lisp))) (lisp lisp)))))))
             ((lisp (lisp (lisp lisp)))
              (((((lisp (lisp (lisp (lisp lisp))))
                  (((lisp (lisp (lisp (lisp lisp))))
                    ((lisp (lisp (lisp lisp)))
                     (lisp (lisp (lisp (lisp lisp))))))
                   (lisp (lisp (lisp lisp)))))
                 ((((lisp (lisp (lisp (lisp lisp))))
                    ((lisp (lisp (lisp (lisp lisp))))
                     (((lisp (lisp (lisp (lisp lisp))))
                       ((lisp (lisp (lisp lisp)))
                        (lisp (lisp (lisp (lisp lisp))))))
                      (lisp (lisp (lisp lisp))))))
                   (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                    (lisp lisp)))
                  (((lisp (lisp (lisp (lisp lisp))))
                    (((lisp (lisp (lisp (lisp lisp))))
                      ((lisp (lisp (lisp lisp)))
                       (lisp (lisp (lisp (lisp lisp))))))
                     (lisp (lisp (lisp lisp)))))
                   (lisp lisp))))
                (((lisp (lisp (lisp (lisp lisp))))
                  ((lisp (lisp (lisp lisp)))
                   ((lisp (lisp (lisp (lisp lisp))))
                    (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                     ((lisp (lisp (lisp lisp))) (lisp lisp))))))
                 (lisp (lisp (lisp lisp)))))
               ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                 (((lisp (lisp (lisp (lisp lisp))))
                   ((lisp (lisp (lisp lisp)))
                    ((((lisp (lisp (lisp (lisp lisp))))
                       (((lisp (lisp (lisp (lisp lisp))))
                         ((lisp (lisp (lisp lisp)))
                          (lisp (lisp (lisp (lisp lisp))))))
                        (lisp (lisp (lisp lisp)))))
                      (lisp lisp))
                     ((((lisp (lisp (lisp (lisp lisp))))
                        (((lisp (lisp (lisp (lisp lisp))))
                          ((lisp (lisp (lisp lisp)))
                           (lisp (lisp (lisp (lisp lisp))))))
                         (lisp (lisp (lisp lisp)))))
                       (((lisp (lisp (lisp (lisp lisp))))
                         (((lisp (lisp (lisp (lisp lisp))))
                           ((lisp (lisp (lisp lisp)))
                            (lisp (lisp (lisp (lisp lisp))))))
                          (lisp (lisp (lisp lisp)))))
                        (lisp lisp)))
                      (((lisp (lisp (lisp (lisp lisp))))
                        ((lisp (lisp (lisp lisp)))
                         ((lisp (lisp (lisp (lisp lisp))))
                          (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                           ((lisp (lisp (lisp lisp))) (lisp lisp))))))
                       (lisp (lisp (lisp lisp))))))))
                  (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                   ((lisp (lisp (lisp lisp)))
                    ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                      (lisp lisp))
                     (((lisp (lisp (lisp (lisp lisp))))
                       ((lisp (lisp (lisp lisp)))
                        (((lisp (lisp (lisp (lisp lisp))))
                          ((lisp (lisp (lisp lisp)))
                           ((lisp (lisp (lisp (lisp lisp))))
                            (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                             ((lisp (lisp (lisp lisp))) (lisp lisp))))))
                         (lisp (lisp (lisp lisp))))))
                      (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                       (lisp lisp))))))))
                (((lisp (lisp (lisp (lisp lisp))))
                  ((lisp (lisp (lisp lisp)))
                   ((((lisp (lisp (lisp (lisp lisp))))
                      (((lisp (lisp (lisp (lisp lisp))))
                        ((lisp (lisp (lisp lisp)))
                         (lisp (lisp (lisp (lisp lisp))))))
                       (lisp (lisp (lisp lisp)))))
                     (((lisp (lisp (lisp (lisp lisp))))
                       ((lisp (lisp (lisp lisp)))
                        (((lisp (lisp (lisp (lisp lisp))))
                          (((lisp (lisp (lisp (lisp lisp))))
                            ((lisp (lisp (lisp lisp)))
                             (lisp (lisp (lisp (lisp lisp))))))
                           (lisp (lisp (lisp lisp)))))
                         (((lisp (lisp (lisp (lisp lisp))))
                           (((lisp (lisp (lisp (lisp lisp))))
                             ((lisp (lisp (lisp lisp)))
                              (lisp (lisp (lisp (lisp lisp))))))
                            (lisp (lisp (lisp lisp)))))
                          (lisp lisp)))))
                      ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                        (lisp lisp))
                       (((lisp (lisp (lisp (lisp lisp))))
                         (((lisp (lisp (lisp (lisp lisp))))
                           ((lisp (lisp (lisp lisp)))
                            (lisp (lisp (lisp (lisp lisp))))))
                          (lisp (lisp (lisp lisp)))))
                        (lisp lisp)))))
                    (((lisp (lisp (lisp (lisp lisp))))
                      ((lisp (lisp (lisp lisp)))
                       ((lisp (lisp (lisp (lisp lisp))))
                        (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                         ((lisp (lisp (lisp lisp)))
                          ((((lisp (lisp (lisp (lisp lisp))))
                             (((lisp (lisp (lisp (lisp lisp))))
                               ((lisp (lisp (lisp lisp)))
                                (lisp (lisp (lisp (lisp lisp))))))
                              (lisp (lisp (lisp lisp)))))
                            (((lisp (lisp (lisp (lisp lisp))))
                              ((lisp (lisp (lisp lisp)))
                               (((lisp (lisp (lisp (lisp lisp))))
                                 (((lisp (lisp (lisp (lisp lisp))))
                                   ((lisp (lisp (lisp lisp)))
                                    (lisp (lisp (lisp (lisp lisp))))))
                                  (lisp (lisp (lisp lisp)))))
                                (((lisp (lisp (lisp (lisp lisp))))
                                  (((lisp (lisp (lisp (lisp lisp))))
                                    ((lisp (lisp (lisp lisp)))
                                     (lisp (lisp (lisp (lisp lisp))))))
                                   (lisp (lisp (lisp lisp)))))
                                 (lisp lisp)))))
                             ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                               (lisp lisp))
                              (((lisp (lisp (lisp (lisp lisp))))
                                (((lisp (lisp (lisp (lisp lisp))))
                                  ((lisp (lisp (lisp lisp)))
                                   (lisp (lisp (lisp (lisp lisp))))))
                                 (lisp (lisp (lisp lisp)))))
                               (lisp lisp)))))
                           ((lisp (lisp (lisp (lisp lisp))))
                            (((lisp (lisp (lisp (lisp lisp))))
                              ((lisp (lisp (lisp lisp)))
                               (lisp (lisp (lisp (lisp lisp))))))
                             (lisp (lisp (lisp lisp)))))))))))
                     (lisp (lisp (lisp lisp)))))))
                 ((((lisp (lisp (lisp (lisp lisp))))
                    (((lisp (lisp (lisp (lisp lisp))))
                      ((lisp (lisp (lisp lisp)))
                       (lisp (lisp (lisp (lisp lisp))))))
                     (lisp (lisp (lisp lisp)))))
                   (((lisp (lisp (lisp (lisp lisp))))
                     ((lisp (lisp (lisp lisp)))
                      (((lisp (lisp (lisp (lisp lisp))))
                        (((lisp (lisp (lisp (lisp lisp))))
                          ((lisp (lisp (lisp lisp)))
                           (lisp (lisp (lisp (lisp lisp))))))
                         (lisp (lisp (lisp lisp)))))
                       (((lisp (lisp (lisp (lisp lisp))))
                         (((lisp (lisp (lisp (lisp lisp))))
                           ((lisp (lisp (lisp lisp)))
                            (lisp (lisp (lisp (lisp lisp))))))
                          (lisp (lisp (lisp lisp)))))
                        (lisp lisp)))))
                    ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                      (lisp lisp))
                     (((lisp (lisp (lisp (lisp lisp))))
                       (((lisp (lisp (lisp (lisp lisp))))
                         ((lisp (lisp (lisp lisp)))
                          (lisp (lisp (lisp (lisp lisp))))))
                        (lisp (lisp (lisp lisp)))))
                      (lisp lisp)))))
                  (((lisp (lisp (lisp (lisp lisp))))
                    ((lisp (lisp (lisp lisp)))
                     ((lisp (lisp (lisp (lisp lisp))))
                      (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                       ((lisp (lisp (lisp lisp)))
                        (((lisp (lisp (lisp (lisp lisp))))
                          ((lisp (lisp (lisp lisp)))
                           (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                            ((lisp (lisp (lisp lisp)))
                             (lisp (lisp (lisp lisp)))))))
                         (((lisp (lisp (lisp (lisp lisp))))
                           (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                            ((lisp (lisp (lisp lisp)))
                             (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                              ((lisp (lisp (lisp lisp)))
                               ((lisp (lisp (lisp lisp))) (lisp lisp)))))))
                          ((lisp (lisp (lisp lisp)))
                           (((((lisp (lisp (lisp (lisp lisp))))
                               (((lisp (lisp (lisp (lisp lisp))))
                                 ((lisp (lisp (lisp lisp)))
                                  (lisp (lisp (lisp (lisp lisp))))))
                                (lisp (lisp (lisp lisp)))))
                              (((lisp (lisp (lisp (lisp lisp))))
                                ((lisp (lisp (lisp lisp)))
                                 (((lisp (lisp (lisp (lisp lisp))))
                                   (((lisp (lisp (lisp (lisp lisp))))
                                     ((lisp (lisp (lisp lisp)))
                                      (lisp (lisp (lisp (lisp lisp))))))
                                    (lisp (lisp (lisp lisp)))))
                                  (((lisp (lisp (lisp (lisp lisp))))
                                    (((lisp (lisp (lisp (lisp lisp))))
                                      ((lisp (lisp (lisp lisp)))
                                       (lisp (lisp (lisp (lisp lisp))))))
                                     (lisp (lisp (lisp lisp)))))
                                   (lisp lisp)))))
                               ((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                                 (lisp lisp))
                                (((lisp (lisp (lisp (lisp lisp))))
                                  (((lisp (lisp (lisp (lisp lisp))))
                                    ((lisp (lisp (lisp lisp)))
                                     (lisp (lisp (lisp (lisp lisp))))))
                                   (lisp (lisp (lisp lisp)))))
                                 (lisp lisp)))))
                             (((lisp (lisp (lisp (lisp lisp))))
                               ((lisp (lisp (lisp lisp)))
                                ((lisp (lisp (lisp (lisp lisp))))
                                 (((lisp (lisp (lisp (lisp lisp))))
                                   (lisp lisp))
                                  ((lisp (lisp (lisp lisp))) (lisp lisp))))))
                              (lisp (lisp (lisp lisp)))))
                            (((((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
                               (lisp lisp))
                              (((lisp (lisp (lisp (lisp lisp))))
                                ((lisp (lisp (lisp lisp)))
                                 ((lisp (lisp (lisp (lisp lisp))))
                                  (((lisp (lisp (lisp (lisp lisp))))
                                    ((lisp (lisp (lisp lisp)))
                                     (lisp (lisp (lisp (lisp lisp))))))
                                   (((lisp (lisp (lisp (lisp lisp))))
                                     ((lisp (lisp (lisp lisp)))
                                      ((lisp (lisp (lisp (lisp lisp))))
                                       (lisp lisp))))
                                    (lisp (lisp (lisp lisp))))))))
                               (((lisp (lisp (lisp (lisp lisp))))
                                 ((lisp (lisp (lisp lisp)))
                                  ((lisp (lisp (lisp (lisp lisp))))
                                   ((lisp (lisp (lisp lisp)))
                                    (lisp (lisp (lisp lisp)))))))
                                (((lisp (lisp (lisp (lisp lisp))))
                                  (((lisp (lisp (lisp (lisp lisp))))
                                    ((lisp (lisp (lisp lisp)))
                                     (lisp (lisp (lisp (lisp lisp))))))
                                   (((lisp (lisp (lisp (lisp lisp))))
                                     ((lisp (lisp (lisp lisp)))
                                      (lisp (lisp (lisp lisp)))))
                                    (((lisp (lisp (lisp (lisp lisp))))
                                      (lisp lisp))
                                     (lisp lisp)))))
                                 ((lisp (lisp (lisp lisp)))
                                  ((lisp (lisp (lisp (lisp lisp))))
                                   (((lisp (lisp (lisp (lisp lisp))))
                                     ((lisp (lisp (lisp lisp)))
                                      (lisp (lisp (lisp (lisp lisp))))))
                                    (lisp (lisp (lisp lisp))))))))))
                             ((lisp (lisp (lisp lisp))) (lisp lisp))))))))))))
                   (lisp (lisp (lisp lisp))))))))))))
          (lisp lisp))))
       (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
        ((lisp (lisp (lisp lisp)))
         (lisp (lisp (lisp lisp))))))))))
  (((lisp (lisp (lisp (lisp lisp))))
    (((lisp (lisp (lisp (lisp lisp))))
      ((lisp (lisp (lisp lisp)))
       (lisp (lisp (lisp (lisp lisp))))))
     (((lisp (lisp (lisp (lisp lisp))))
       ((lisp (lisp (lisp lisp)))
        (lisp (lisp (lisp lisp)))))
      (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
       (lisp lisp)))))
   ((lisp (lisp (lisp lisp)))
    (((lisp (lisp (lisp (lisp lisp)))) (lisp lisp))
     ((lisp (lisp (lisp lisp)))
      ((lisp (lisp (lisp lisp))) (lisp lisp))))))))

— SYZYGY-DEV 333
ソース

Is this an actual language with an implementation? If so, can you please link to it?

— Jo King

@JoKing Wikipedia TIO

— Benjamin Urquhart

@BenjaminUrquhart Yes, Lisp is a language. Lisplisp however, I have found no evidence exists

— Jo King

@JoKing oh I see. Maybe he was referring to this?

— Benjamin Urquhart

1

Here's a translator to LazyK (Itself simply an implementation of the SKI Combinator Calculus). gist.github.com/SYZYGY-DEV333/d74ca36b9a4c504b25c0a2380203c98d

— SYZYGY-DEV 333

2

8086 Machine Code, 27 bytes

Unassembled:

        STLOOP:
AC          LODSB               ; load byte from SI into AL, advance SI 
8B D0       MOV  DX, AX         ; save original char in DL 
0C 20       OR   AL, 020H       ; lowercase the char 
3C 61       CMP  AL, 'a'        ; is char less than 'a'? 
7C 0F       JL   STCHR          ; if so, do not rotate 
3C 7A       CMP  AL, 'z'        ; is char greater than 'z'? 
7F 0B       JG   STCHR          ; if so, do not rotate 
B6 0D       MOV  DH, 'n'-'a'    ; add or subtract 13 
3C 6E       CMP  AL, 'n'        ; is char less than 'n'? 
7C 02       JL   ADD13          ; if so, add positive 13 
F6 DE       NEG  DH             ; otherwise add -13 
        ADD13:
92          XCHG AX, DX         ; original char back to AL 
02 C4       ADD  AL, AH         ; add 13 or -13 to original char
        STCHR:
AA          STOSB               ; store converted byte into DI, advance DI 
E2 E5       LOOP STLOOP         ; continue loop through string

Input string in SI, length in CX. Output string buffer at DI.

Test IBM PC DOS program output:

Download R13.COM test program (PC DOS).

— 640KB
ソース

1

Haskell - 112 characters

r l=drop 13 l++take 13 l
t=['a'..'z']
s=['A'..'Z']
main=interact$map(\x->maybe x id$lookup x$zip(t++s)$r t++r s)

1

K, 31

{x^(,/{x!(13_x),13#x}'.Q`A`a)x}

— tmartin
ソース

{x^a(,/-13 13#\:a:.Q.A)?x} for 26 bytes

— streetster

1

Tcl, 74 chars

package require [set c tcl::transform::rot];$c 13 stdin;fcopy stdin stdout

— Johannes Kuhn
ソース

ROT-13変換標準入力

Bash、23バイト

バッシュ-5文字

Python 2、34バイト

Befunge- 7x30 = 210 6x26 = 156文字

古いバージョン

ルビー-60 57 38 37文字

テスト

vim、5回のキーストローク

C- 83 79文字

Python（117バイト）

R、37バイト

Befunge-93、85（グリッド：41x3 = 123）

PHP - 103 98 80 characters

Delphi, 110

Haskell, 100 characters

Python 3 (107)

C: 69 68 characters

05AB1E, 13 12 bytes

PHP - 41 Characters

CHIQRSX9+, 1

C, 136 bytes

Javascript, 177 bytes

LispLisp (16,636)

8086 Machine Code, 27 bytes

Haskell - 112 characters

K, 31

Tcl, 74 chars