Виклик

Враховуючи два рядки, попрацюйте, чи є в них обох однакові символи.

Приклад

Вхідні дані

слово, 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

-:&(/:~)

Literaly, match ( -:) on ( &) сортування ( /:~)

Використання зразка:

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

Гольфскрипт, 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

Кудо до лямбдаботу та його безпроблемне реконструкція .

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

Використовуючи схему IO рішення Пітера Тейлорса 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()замість String box :

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

(Не друкує новий рядок, щоб зберегти 2 символи від println)

Складіть і запустіть:

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.

Функція Perl, 39

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

APL, 2 символи

≡⍦

Це Multiset матч функція з 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 символів

Введення / виведення проблеми недостатньо уточнено; це читає два рядки зі stdin та виводить true чи false у stdout.

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 в масиві і перевіряє, чи не вирівнюється він. Збільшення до першого слова та зменшення до другого слова.

Пітон 3, 107 97 76 64

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

Очевидно, що це може бути скорочено, якщо ми не сприймемо формулювання ОП буквально і малі букви «правдиві» та «помилкові» ...

Пітон, 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

Функція 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)}

Вони використовують чітку функцію Scala, згідно з якою String також може розглядатися як послідовність символів ( 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.