チャレンジ

2つの文字列が与えられた場合、両方にまったく同じ文字が含まれている場合は解決します。

例

入力

word、wrdo

trueそれらは同じであるがスクランブルされているため、これは戻ります。

入力

単語、wwro

これはを返しますfalse。

入力

ボート、鳥羽

これは戻ります true

ルール

ここにルールがあります！

• 入力は少なくとも1文字で、8文字を超えないものとします。
• 特殊文字なし、のみa–z
• すべての入力は小文字であると想定できます

テストケース

boat, boat = true
toab, boat = true
oabt, toab = true
a, aa = false
zzz, zzzzzzzz = false
zyyyzzzz, yyzzzzzy = true
sleepy, pyels = false
p,p = true

Python、32バイト

f=lambda a,b,S=sorted:S(a)==S(b)

Golfscript、3文字？

$$=

使用法：

'boat'$'baot'$=
1

'toab'$'boat'$=
1

'oabt'$'toab'$=
1

'a'$'aa'$=
0

'zzz'$'zzzzzzzz'$=
0

'zyyyzzzz'$'yyzzzzzy'$=
1

'sleepy'$'pyels'$=
0

'p'$'p'$=
1

J、8

-:&(/:~)

Literaly、一致（-:上）（ &）ソートアップ（/:~）

使用例：

   'boat' -:&(/:~) 'boat'
1
   'toab' -:&(/:~) 'boat'
1
   'oabt' -:&(/:~) 'toab'
1
   'a' -:&(/:~) 'aa'
0
   'zzz' -:&(/:~) 'zzzzzzzz'
0
   'zyyyzzzz' -:&(/:~) 'yyzzzzzy'
1
   'sleepy' -:&(/:~) 'pyels'
0
   'p' -:&(/:~) 'p'
1

64ビット整数はどこで機能しますか？

ジャバスクリプト、192の 157 152 147 125バイト

これらの言語のいくつかは、思ったよりもはるかに柔軟です！とにかくこれは私が推測するより長い方法ですが、少なくとも異なるテクニックです。

圧縮された

より多くのチャーを絞り出してくれたPeterとDavidに感謝します！

for(a=[j=p=2];j<123;)a[j]?p%a[++j]<1&&p++&&(j=0):(a[j]=p,j=0);function b(c,i){return c[i=i||0]?a[c.charCodeAt(i)]*b(c,++i):1}

それから：

alert(b("hello")==b("elloh"));

拡張コード

圧縮には多くの変更がありますが、これは基本的な理論です。

// Define dictionary of primes
a = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101];

// Returns the unique ID of the word (order irrelevant)
function b(c) {
    r = 1;
    for (i = 0; i < c.length; i++)
        r *= a[c[i].charCodeAt(0) - 97];
    return r
}

alert(b("hello") == b("hlleo"));

Golfscript、8バイト

これはと呼ばれる関数を定義します A

{$\$=}:A

テストケース

;
'boat' 'boat' A
'toab' 'boat' A
'oabt' 'toab' A
'a' 'aa' A
'zzz' 'zzzzzzzz' A
'zyyyzzzz' 'yyzzzzzy' A
'sleepy' 'pyels' A
'p' 'p' A

Haskell、31バイト

機能-31

import List
f=(.sort).(==).sort

プログラム-81 58 55

import List
g=sort`fmap`getLine
main=(`fmap`g).(==)=<<g

使用法：

$ runghc anagram.hs
boat
boat
True
$ runghc anagram.hs
toab
boat
True
$ runghc anagram.hs
a
aa
False

賛辞lambdabotとそのpointfreeリファクタリング。

C＃、129文字

namespace System.Linq{class X{static void Main(string[]a){Console.Write(a[0].OrderBy(_=>_).SequenceEqual(a[1].OrderBy(_=>_)));}}}

読みやすい：

namespace System.Linq
{
    class X
    {
        static void Main(string[] a)
        {
            Console.Write(a[0].OrderBy(_ => _)
                  .SequenceEqual(a[1].OrderBy(_ => _)));
        }
    }
}

ルビー、34バイト

Peter Taylors PerlソリューションのIOスキームを使用します。

p gets.chars.sort==gets.chars.sort

Cプログラム、118

t[52],i;main(c){for(;i<52;)(c=getchar())<11?i+=26:t[i+c-97]++;
for(i=27;--i&&t[i-1]==t[i+25];);puts(i?"false":"true");}

Perl、58バイト

（関数のみである他のPerlの答えとは異なり、完全なプログラム）

($c,$d)=map{[sort split//]}<>;print"@$c"eq"@$d"?true:false

関数として49

sub f{($c,$d)=map{[sort split//]}<>;"@$c"eq"@$d"}

Clojure-23文字

無名関数として：

#(apply = (map sort %))

テストケースの例：

(#(apply = (map sort %)) ["boat" "boat"])
=> true

JavaScript

@zzzzBovのソリューションに基づいています。

比較、65文字（機能なしで40文字）

function f(a,b){return a.split('').sort()==b.split('').sort()+""}

コンパレータ、43文字

function f(a){return a.split('').sort()+""}

C ++（104個の非WS文字）

ソートのカウントに基づきます。注：同じ長さの文字列を想定しています。これは、質問によって暗示されているように見えます（ただし、明記されていません）。

int u[123], i;

int a(char **c) {
    for(; c[0][i]; ) {
        u[c[0][i]]++;
        u[c[1][i++]]--;
    }

    i=123;
    while(i && !u[--i]);
    return !i;
}

PHP（コマンドライン、87文字）

function d($s){
    return array_count_values(str_split($s));
}

echo d($argv[1]) == d($argv[2]);

Javascript

.join()文字列ボクシングの代わりに使用する@zzzzBovのソリューションの（非常に）わずかに短いバージョン：

function a(b,c){return b.split('').sort().join()==c.split('').sort().join()}
alert(a('abc','bca')); //true

同様に：

function a(b){return b.split('').sort().join()}
alert(a('abc')==a('bca')); //true

Clojure REPL 41文字

(= (sort (read-line)) (sort (read-line)))

Java

（みんなのお気に入りの言語は明らかに！）

173文字：

import java.util.*;class g{public static void main(String[]p){String[]a=p[0].split(""),b=p[1].split("");Arrays.sort(a);Arrays.sort(b);System.out.print(Arrays.equals(a,b));}}

（printlnから2文字を保存するために改行文字を出力しません）

コンパイルして実行します：

javac g.java
java -cp . g abcdef fedcba
true

短いものを見るのが大好き...

sed、45文字

私のお気に入りでも可能sedです- ！アナグラムを解くためのたった1つの正規表現！対応する文字を削除するだけです：

:
s/(.)(.*,.*)\1/\2/
t
/\w/{i\false
d}
i\true

（で呼び出される-nE）

Perl、48

1while s/(.)(.*,.*)\1/\2/;$_=/\w/?"false":"true"

で呼び出され-pます。

Perl関数、39

sub f{$,while s/(.)(.*,.*)\1/\2/;!/\w/}

APL、2文字

≡⍦

これは、最先端のAPL実装の1つであるNars2000のMultiset Match機能です。文字列に適用されると、必要な関数を正確に計算します。

      'elvis' ≡⍦ 'lives'
1
      'alec guinness' ≡⍦ 'genuine class'
1

05AB1E、6 4バイト（非競合）

{I{Q

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

入力が困難なため、これにはしばらく時間がかかりました。ポップが原因でダウンしました。

説明：

{I{Q    Original code

{       Takes first input e.g. word and sorts -> 'dorw'
 I      Takes second input e.g. 'wrdo'
  {     Sorts second input -> 'dorw'
   Q    Compare if sorted 1 = sorted 2, then print result. 'dorw' = 'dorw', so prints 1.

Perl、77 75文字

問題のI / Oが十分に指定されていません。これは、stdinから2行を読み取り、trueまたはfalseをstdoutに出力します。

sub p{join'',sort split'',$a}$a=<>;$x=p;$a=<>;print$x eq p()?"true":"false"

（77-> 75のTimに感謝）

Perl、62バイト

この関数は文字列を引数として受け取り、trueまたはfalseを返します。

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a}

ASCII値を配列に保存し、偶数かどうかを確認します。最初の単語の増分と2番目の単語の減分。

Python 3、107 97 76 64

s=sorted;a,b=input().split(', ')
print(str(s(a)==s(b)).lower())

明らかに、OPの文言をそのまま使用し、小文字の「true」と「false」を使用しない場合、これは短縮できます...

Python、32バイト

p=sorted
f=lambda a,b:p(a)==p(b)

Bash、88文字

diff <(grep -o .<<<$1|sort) <(grep -o .<<<$2|sort)>/dev/null && echo true || echo false

R、54バイト

function(x,y,`~`=sort,`+`=utf8ToInt)identical(~+x,~+y)

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

REPLのScala（32）

readLine.sorted==readLine.sorted

Scala関数（43）

def f(a:String,b:String)=a.sorted==b.sorted

Scalaプログラム（61）

object A extends App{println(args(0).sorted==args(1).sorted)}

これらは、文字列を一連の文字（Seq）として扱うこともできるScalaの優れた機能を活用しており、すべての操作Seqが利用可能です。

APL-13文字

{(⍺[⍋⍺])≡⍵[⍋⍵]}

このような呼び出し：

      'boat' {(⍺[⍋⍺])≡⍵[⍋⍵]} 'baot'
1
      'baot' {(⍺[⍋⍺])≡⍵[⍋⍵]} 'boat'
1
      (,'a') {(⍺[⍋⍺])≡⍵[⍋⍵]} 'aa'
0

最後の例で'a'は、単一の文字を表し、接頭辞,はそれを文字列に変換します。

Java（134バイト）

int[][]c=new int[2][26];
for(int i=0;i<2;i++)for(byte a:args[i].getBytes())c[i][a-97]++;
System.out.print(Arrays.equals(c[0],c[1]));`

これにより、配列が各文字の出現回数をカウントし、配列を比較して等しいかどうかを確認します。

JavaScript、41

比較機能（41）：

a=b=>''+[...b].sort()
b=(c,d)=>a(c)==a(d)

alert(b('abc', 'cba')) // true

コンパレータ機能（21）：

a=b=>''+[...b].sort()

alert(a('abc') == a('bca')); //true

コンパレータ機能（48）：

function a(b){return String(b.split('').sort())}

alert(a('abc')==a('bca')); //true

比較関数（78）：

function a(b,c){return String(b.split('').sort())==String(c.split('').sort())}

alert(a('abc','bca')); //true

has およびhasを想定しStringています。splitArraysort