도전

두 개의 줄이 주어지면 둘 다 정확히 같은 문자가 있는지 확인하십시오.

예

입력

단어, 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

파이썬, 32 바이트

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

골프 스크립트, 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

-:&(/:~)

글자 그대로 ( -:)에서 ( &) 정렬 ( /:~)

샘플 사용 :

   '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"));

골프 스크립트, 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

하스켈, 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");}

펄, 58 바이트

(기능 일 뿐인 다른 Perl 답변과 달리 완전한 프로그램)

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

함수로서 49

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

클로저-23 자

익명 함수로 :

#(apply = (map sort %))

테스트 사례 예 :

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

자바 스크립트

@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]);

자바 스크립트

@zzzzBov 솔루션의 약간 짧은 버전 ( .join() 으로 String boxing 대신 합니다.

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

자바

(모두가 가장 좋아하는 언어입니다!)

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! 아나그램을 해결하는 단 하나의 정규식 ! 해당 문자를 계속 제거하십시오.

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

(와 함께 호출 -nE )

펄, 48

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

로 호출 -p .

펄 함수, 39

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

APL, 2 자

≡⍦

이것은 최첨단 APL 구현 중 하나 인 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.

펄, 77 75 자

문제의 I / O가 제대로 지정되지 않았습니다. 이것은 stdin에서 두 줄을 읽고 stdout에 true 또는 false 를 출력 합니다 .

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

(77-> 75의 Tim에게 감사합니다)

펄, 62 바이트

이 함수는 문자열을 인수로 사용하여 true 또는 false를 반환합니다.

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

ASCII 값을 배열에 저장하고 짝수인지 확인합니다. 첫 번째 단어 증가 및 두 번째 단어 감소

파이썬 3, 107 97 76 64

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

OP의 문구를 문자 그대로 사용하지 않고 소문자 "true"및 "false"를 사용하지 않으면 분명히 단축 될 수 있습니다.

파이썬, 32 바이트

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

배쉬, 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 인 스칼라 (32)

readLine.sorted==readLine.sorted

스칼라 기능 (43)

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

스칼라 프로그램 (61)

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

이것들은 스칼라의 깔끔한 기능을 활용하여 문자열을 일련의 문자 ( Seq) 로 취급 할 수 있으며 모든 작업을 Seq사용할 수 있습니다.

APL-13 자

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

이런 식으로 전화하십시오 :

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

마지막 예에서 'a'단일 문자를 나타내며 접두사 ,가 문자 로 변환합니다.

자바 (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]));`

이렇게하면 배열이 각 문자가 나타나는 횟수를 계산 한 다음 배열이 비교되어 같은지 확인합니다.

자바 스크립트, 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

String가 split있고 Array있다고 가정합니다 sort.