もう一度やってみましょう。

このコンテストの目的は、互いにアナグラムである2つのコードを作成することです（2つは同じバイトを異なる順序で含む必要があります）。次のタスクを実行します。

• 入力された数値が幸せか素数かをテストし、数値がどちらかである場合は出力する7必要があります（たとえば、出力happy primeと4出力が必要sad non-prime）。

• もう1つは、コードサイズをバイト単位でワードとして出力する必要があります（60バイトのプログラムが出力しsixty、39バイトのプログラムが出力しますthirty-nine）。

ルールの説明が必要な場合は、遠慮なく教えてください。

これはコードゴルフ大会なので、最短のプログラムが勝ちます！

CJam、80 49 48文字

更新：デニスの実装に触発されて数字の二乗和を計算します。これは短いバージョンです

幸せ/悲しい首相/非首相：

ri:T{Ab2f#:+}G*X="happy""sad"?STmp4*"non-prime">

使い方：

ri:T                                "Read input as integer and store it in T"
    {       }G*                     "Run this code block 16 times"
     Ab                             "Convert the number into base 10"
       2f#                          "Calculate square of each digit"
          :+                        "Sum all the squared digits and put the sum on stack"
X=                                  "Compare the sum after 16th iteration to 1"
  "happy""sad"?                     "If sum is 1, put `happy` to stack, otherwise `sad`"
               ST                   "Put space on stack then put the value of T on stack"
                 mp4*               "Put 4 to stack if input is prime, otherwise 0"
                     "non-prime">   "Put `non-prime` to stack and slice out first four characters if the input number is prime"

48

""A"forTy-eiGhT""ri:{b2#:+}*X=appsadSmp4*nnpm>"?

仕組み：

""                                  "Push empty string to stack"
  A                                 "Push 10 to stack"
   "forTy-eiGhT"                    "Push `forTy-eiGhT` to stack"
                "ri:....pm>"        "Push this string to stack too"
                            ?       "Keep `forTy-eiGhT` on stack and pop the other string"

オンラインでお試しください

最初のプログラムはSTDINから番号を読み取ります

私の元の80文字のソリューション

幸せ/悲しい首相/非首相：

r:N{1/~]{i_*T+:T;}/T_s\1=:H!X):XK<&0:T;}g;H"happy""sad"?SNimp"prime"_"non-"\+?:Y

80人

"eigHTY""r:N{1/~]{i_*T+:T}/_s\1=:H!X):XK<&0:T}happysad?SNmp";"prim_";"non-\?:+";

CJam、50 49バイト

幸福と素数テスト

li_{Ab2f#:+}30*(T="happy""sad"?S@mp4*"non-prime">

STDINから数値を読み取ります。どちらのテストも64ビット整数でのみ機能します。

オンラインでお試しください。

自分の長さ

A"forTy-nine""l_{b2#:+}30*(=happsadS@mp4*pim>"?""

Ty-nineのプリント。

Golfscript-81

このプログラムは、数値が幸せまたは素数であるかどうかをテストします。

~.:a;0.{).a\%!@+\}a*;2="""non-"if"prime"@ {`0\{48-.*+}/}9*("sad ""happy "if@@#get

最後のアナグラムであるこのプログラムは、「８１」（単語としてのバイトサイズ）を出力します。

;"eighty-one"#   !""""""""%()***++-..../002489:;=@@@@\\\`aaaaadffiimnppprs{{{}}}~

これは例として役立つはずです。

J-87文字

Jでこれを行う単純な試み。標準ライブラリを使用しない。ただし、これを使用することで短縮されるとは思えない。

((sad`happy{~1 e.(,[:+/@:*:,.&.":@{:)^:(1-{:e.}:)^:_);@,' ';'gtv]non-prime'}.~4+4*1&p:)
'((ad`app{~1 .(,[:+/@:*:,.&.":@{:)^:(1-{:.}:)^:_);@, ;onprm}.~4+4*1&p:)']'eighty-seven'
('(ad`app{~1 .(,[:+/@:*:,.&.:@{:)^:(1-{:.}:)^:);@, ;onprm}.~4+4*1&p:']'eighty-seven'"_)

一番上の行は、整数を取り、その幸福と素数を出力文字列として診断する動詞です。2行eighty-seven目は文字列を返す式で、3行目は同じことをする定数関数です。どちらも可能であり、プログラムの回答とは対照的に、関数の回答に対する判決がどうなるかわからないため、両方を含めました。Jには引数のない関数などはありません。関数に仮引数。

私たちは幸福をチェックするイワナのほとんどを失います。(,[:+/@:*:,.&.":@{:)は、数値の数字の2乗を合計する本体であり、(1-{:e.}:)その数値がまだ発生しているかどうかのテストです。sad`happy{~1 e.これを単語の結果に変え、それを文字列の前に付けnon-primeます。数字が実際に素数である場合、4文字を切り落とす可能性があります。

アナグラム'eighty-seven'では、無視する文字列にないすべてのビットを非表示にします。Jに再利用する文字が多ければもっとうまくいくはずですが、そうではないので、まあ。