Meydan okuma

İki dize verildiğinde, her ikisinde de aynı karakterlere sahip olup olmadıklarını hesaplayın.

Örnek

Giriş

kelime

Bu, trueçünkü onlar aynı ama sadece şifreli oldukları için geri döner .

Giriş

kelime

Bu döner false.

Giriş

tekne

Bu döner true

kurallar

İşte kurallar!

• Girişin en az 1 karakter uzunluğunda ve 8 karakterden uzun olmayacağını varsayalım.
• Özel karakter yok, sadece a-z
• Tüm girişlerin küçük harf olduğu varsayılabilir.

Test Kılıfları

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 bayt

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

Golfscript, 3 karakter?

$$=

kullanımı:

'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

-:&(/:~)

Kelimenin tam anlamıyla, match ( -:) on ( &) sort up ( /:~)

Örnek kullanım:

   '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-bit tamsayılar nerede devreye giriyor?

Javascript, 192 157 152 147 125 bayt

Tamam, bu dillerden bazıları düşündüğümden daha esnek! Her neyse, sanırım daha uzun yol bu ama en azından farklı bir teknik.

Sıkıştırılmış

Peter ve David'e daha fazla karakter çıkardığı için teşekkürler!

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}

O zaman yapın:

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

Genişletilmiş Kod

Sıkıştırılmış birçok değişiklik oldu, ancak bu temel teoridir:

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

Golf Betiği, 8 bayt

Bu denilen bir işlevi tanımlar. A

{$\$=}:A

Test durumları

;
'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 bayt

İşlev - 31

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

program - 81 58 55

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

Kullanımı:

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

Lambdabot ve puansız refactoring için Kudos .

C #, 129 karakter

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

Okunabilir:

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

Ruby, 34 bayt

Peter Taylors Perl çözümünün IO şemasını kullanarak:

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

C programı, 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 bayt

(Tamamen program, sadece bir fonksiyon olan diğer Perl cevabının aksine)

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

49 bir işlev olarak

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

Clojure - 23 karakter

Anonim bir işlev olarak:

#(apply = (map sort %))

Test durumu örneği:

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

JavaScript

@ ZzzzBov'un çözümüne dayanıyor.

Karşılaştırma, 65 karakter (işlevsiz 40)

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

Karşılaştırıcı, 43 karakter

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

C ++ (104 karakter dışı karakter)

Sıralama sayma dayalı. Not: Aynı uzunlukta dizeleri varsayalım (bununla birlikte belirtilmemiş).

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 (komut satırı, 87 karakter)

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

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

JavaScript

.join()String boks yerine kullanılan @ zzzzBov'un çözümünün (çok) biraz daha kısa bir sürümü :

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

Benzer şekilde:

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

Clojure REPL 41 karakter

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

Java

(görünüşe göre herkesin favori dili!)

173 karakter:

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'den 2 karakter kaydetmek için newline char'ı yazdırmaz)

Derleyin ve çalıştırın:

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

Daha kısa bir tane görmeyi seviyorum ...

sed, 45 karakter

Benim favorimde bile mümkün - sed! Anagramı çözmek için sadece bir düzenli ifade ! Sadece ilgili harfleri kaldırmaya devam edin:

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

(ile çağrılacak -nE)

Perl, 48

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

İle çağrılacak -p.

Perl işlevi, 39

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

APL, 2 karakter

≡⍦

Bu, önde gelen APL uygulamalarından biri olan Nars2000'in Multiset Eşleştirme işlevidir . Dizelere uygulandığında, gereken işlevi tam olarak hesaplar:

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

05AB1E , 6 4 bayt (rekabet etmeyen)

{I{Q

Çevrimiçi deneyin!

Bu girdi zorlukları nedeniyle biraz zaman aldı. Pop yüzünden golf oynadım.

Açıklama:

{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 karakter

Sorunun G / Ç'si tam olarak belirtilmemiştir; bu stdin'den iki satır okur ve stdout'a doğru veya yanlış verir.

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

(77 için Tim'e teşekkürler -> 75)

Perl, 62 bayt

Bu işlev dizeleri argüman olarak alır ve doğru ya da yanlış döndürür.

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

ASCII değerlerini bir dizide saklar ve eşit olup olmadığını kontrol eder. İlk kelimenin artışları ve ikinci kelimenin azalmaları.

Python 3, 107 97 76 64

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

Açıkçası, OP'nin kelimelerini kelimenin tam anlamıyla ve küçük harfleri "doğru" ve "yanlış" olarak almazsak, bu kısaltılabilir.

Python, 32 bayt

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

Bash, 88 karakter

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

R , 54 bayt

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

Çevrimiçi deneyin!

REPL'de ölçeklendirme (32)

readLine.sorted==readLine.sorted

Ölçek işlevi (43)

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

Scala programı (61)

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

Bunlar, bir String'in ayrıca mevcut Seqtüm işlemler ile birlikte bir karakter dizisi ( ) olarak da ele alınabileceği düzgün bir Scala özelliğini kullanır Seq.

APL - 13 karakter

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

Böyle ara:

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

Son örnekte, 'a'tek bir karakteri temsil eder ve önek ,onu bir dizgeye dönüştürür.

Java (134 bayt)

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

Bu, her harfin kaç kez göründüğünü saymak için bir dizi yapar ve eşit olup olmadığını kontrol etmek için dizileri karşılaştırır.

JavaScript, 41

Karşılaştırma fonksiyonu (41) :

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

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

Karşılaştırma işlevi (21) :

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

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

Karşılaştırma işlevi (48):

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

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

Karşılaştırma fonksiyonu (78):

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

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

Devraldı Stringvardır splitve Arrayvar sort.