ท้าทาย

รับสองสายงานถ้าพวกเขาทั้งสองมีตัวอักษรเหมือนกันในพวกเขา

ตัวอย่าง

อินพุต

คำ, 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

-:&(/:~)

เรียงตามตัวอักษรจับคู่ ( -:) บน ( &) เรียงลำดับ ( /:~)

ตัวอย่างการใช้งาน:

   '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และrefactoring 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(_ => _)));
        }
    }
}

Ruby, 34 ไบต์

การใช้รูปแบบ IO ของโซลูชั่น Peter Taylors Perl:

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

จาวาสคริ

โซลูชันของ @ 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));}}

(ไม่พิมพ์อักขระขึ้นบรรทัดใหม่เพื่อบันทึก 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)

Perl, 48

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

-pที่จะถูกเรียกด้วย

ฟังก์ชัน Perl, 39

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

APL, 2 ตัวอักษร

≡⍦

นี่คือฟังก์ชั่นการจับคู่ชุดข้อมูลจาก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 ตัวอักษร

I / O ของปัญหาไม่ได้ระบุไว้อย่างดี สิ่งนี้อ่านสองบรรทัดจาก stdin และเอาต์พุตจริงหรือเท็จถึง stdout

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

(ขอบคุณสำหรับ Tim สำหรับ 77 -> 75)

Perl, 62 ไบต์

ฟังก์ชันนี้รับค่าสตริงเป็นอาร์กิวเมนต์และส่งคืนค่าจริงหรือเท็จ

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

เห็นได้ชัดว่านี่จะสั้นลงถ้าเราไม่ใช้ถ้อยคำของ 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 (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 โดยที่ 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และมีArraysort