Вызов

Учитывая две строки, определите, есть ли в них одинаковые символы.

пример

вход

слово

Это возвращается, 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

-:&(/:~)

В буквальном смысле, match ( -:) на ( &) сортировать ( /:~)

Образец использования:

   '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-битные целые числа?

Javascript, 192 157 152 147 125 байт

Хорошо, некоторые из этих языков намного более гибкие, чем я думал! В любом случае, это более длинный путь, но, по крайней мере, другой метод.

Сжатый

Спасибо Петру и Дэвиду за то, что они выдавили больше символов!

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 байта

Используя схему ввода-вывода решения Perl Питера Тейлорса:

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

С программа, 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 символа без символов)

На основании подсчета сортировки. Примечание. Предполагается, что строки одинаковой длины, что, как представляется, подразумевается (хотя и не указано) в вопросе.

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

(Очень) немного более короткая версия решения @ zzzzBov, которая использует .join()вместо строкового бокса:

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

(Не печатает символ новой строки, чтобы сохранить 2 символа из печати)

Скомпилируйте и запустите:

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

Люблю видеть короче ...

Сед, 45 символов

Это даже возможно в моем любимом - sed! Только одно регулярное выражение для решения анаграммы ! Просто продолжайте удалять соответствующие буквы:

:
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 символа

≡⍦

Это функция Multiset Match из Nars2000 , одной из передовых реализаций APL. Применительно к строкам он точно вычисляет требуемую функцию:

      '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 символов

Проблема ввода / вывода не очень хорошо определена; это читает две строки из стандартного ввода и выводит истину или ложь в стандартный вывод.

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

(Спасибо Тиму за 77 -> 75)

Perl, 62 байта

Эта функция принимает строки в качестве аргументов и возвращает true или false.

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

Сохраняет значения ASCII в массиве и проверяет, выравнивается ли он. Приращение для первого слова и уменьшение для второго слова.

Python 3, 107 97 76 64

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

Очевидно, что это может быть сокращено, если мы не принимаем буквально формулировку ОП и строчные буквы "правда" и "ложь" ...

Python, 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)}

Они используют удобную особенность Scala, благодаря которой строку также можно рассматривать как последовательность символов ( Seq) со всеми 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

Предполагает, что Stringимеет splitи Arrayимеет sort.