এটি পিপিসি-র কিছুটা traditionতিহ্য হয়ে দাঁড়িয়েছে যে কিছু ব্যবহারকারী অস্থায়ীভাবে তাদের নাম পরিবর্তন করে একটি ইনস্টাগ্রাম (পুরানো চিঠিগুলি পুনরায় সাজিয়ে একটি নতুন নাম) তৈরি করে।

কে কখনও কে তা খুঁজে পাওয়া মুশকিল হয়। দুটি বাক্যাংশ একে অপরের অ্যানগ্রগ্রাম কিনা তা জানাতে আমি কোনও প্রোগ্রাম বা ফাংশন ব্যবহার করতে পারি।

চ্যালেঞ্জ

প্রোগ্রাম বা ফাংশনটিতে দুটি স্ট্রিং নেওয়া উচিত এবং যদি তারা একে অপরের অ্যানগ্রগ্রাম হয় এবং অন্যথায় মিথ্যা হয় তবে সত্যবাদী ফলাফল তৈরি করা উচিত।

বিধি

ইনপুটটিতে কেবল অক্ষর (ASCII 65 থেকে 90 এবং 97 থেকে 122), অঙ্কগুলি (ASCII 48 থেকে 57) বা স্থান (ASCII 32) থাকবে।
আনগ্রামের সম্পর্কটি মামলার স্বতন্ত্র। সুতরাং "আর্ম" এবং "র‌্যাম" আনগ্রামগুলি ag
স্পেসগুলিও গণনা করা হয় না। সুতরাং "কীবোর্ড" এবং "বার্কড ইয়ো" আনগ্রামগুলি
সমস্ত বিল্টিন অনুমোদিত
ইনপুট ফর্ম্যাটটি নমনীয় (দুটি স্ট্রিং, দুটি স্ট্রিংয়ের একটি অ্যারে, উপযুক্ত বিভাজক সহ দুটি বাক্যাংশ যুক্ত স্ট্রিং ...)

কোড গল্ফ। সবচেয়ে কম বাইট জেতা

পরীক্ষার মামলা

Truthy:

Lynn, Nyl N
Digital Trauma, Tau Digital Arm
Sp3000, P S 3000
Manage Trash So, Those anagrams

Falsy

Calvins Hobbies, Helka Homba
Android, rains odd
In between days, bayed entwine
Code golf, cod elf got

— লুইস মেন্ডো
সূত্র

8

সম্পর্কিত তবে ভিন্ন (কেবলমাত্র অক্ষর, কোনও মামলা নেই, কোনও স্থান নেই)

— লুইস মেন্ডো

4

এই প্রশ্নের শিরোনাম এমন কাউকে খুব বিভ্রান্ত করছে যার কাছে পর্যাপ্ত কফি নেই। +1: ডি

— বিড়াল

1

@ ডোনমুসলি আমি যুক্তি দিয়ে বলব যে এটি এখনও একটি দ্বিগুণ। সামান্য পরিবর্তন খুব তুচ্ছ।

— মেগো

15

Manage Trash So, Those anagrams। খুশী হলাম।

— mbomb007

3

So, the anagrams...

— ফাঁস নুন

13

05 এ বি 1 ই , 9 8 বাইট

কোড:

lvyð-{}Q

ব্যাখ্যা:

l         # Lowercase the strings
 vy   }   # Map over the list, for each...
   ð-     #   remove spaces
     {    #   and sort
       Q  # Check equality

এটি অনলাইন চেষ্টা করুন!

— আদনান
সূত্র

... তবে 2 বাইট কম! সাবাশ!

— লুইস মেন্ডো

এটা lvyðK{}Qএখন।

— ম্যাজিক অক্টোপাস উরন

15

রেটিনা, 25

i+`(\w)(.*,.*)\1
$2
^\W*$

অনলাইনে চেষ্টা করে দেখুন! অতিরিক্তভাবে, আপনি একটি পরিবর্তিত মাল্টি-লাইন সংস্করণ চালাতে পারেন ।

কমা আসার আগে কমাতে অক্ষর মুছতে মুদ্রার সাথে মিল রেখেছিল। আমাদের যদি কোনও চিঠি না থাকে তবে এটি ছিল একটি অ্যানগ্রাম।

— FryAmTheEggman
সূত্র

রেটিনার পক্ষে, যদি ধনাত্মক সংখ্যাকে ব্যর্থতা হিসাবে বিবেচনা করা যেতে পারে, এবং শূন্যকে সাফল্য হিসাবে বিবেচনা করা যায়, \wতবে শেষ পর্যায়ে হিসাবে এটি ব্যবহার করে এটি তিন বাইট সংক্ষিপ্ত হতে পারে ।

— FryAmTheEggman

\Wএর ক্ষেত্রে কাজ করবে না:Calvins Hobbies, Calvin's Hobbies

— andlrc

@ দেব-নাল "ইনপুটটিতে কেবল অক্ষর থাকবে (এএসসিআইআই 65 থেকে 90 এবং 97 থেকে 122), অঙ্কগুলি (এএসসিআইআই 48 থেকে 57) বা স্থান (এএসসিআইআই 32)"

— ফ্রাইআম দ্য এজিগম্যান 26:36

11

পাইথ, 11 10 বাইট

আমাকে পাওয়ার শক্তি শেখানোর জন্য @ ফ্রিআমডেজিগম্যানকে ধন্যবাদ ;!

qFmSr-d;0Q

এখানে চেষ্টা করুন!

ইনপুট হিসাবে দুটি স্ট্রিংয়ের একটি তালিকা নেয়।

ব্যাখ্যা

qFmSr-d; 0Q # Q = ইনপুট

  এম কিউ # মানচিত্রের সাথে ল লম্বা ভেরিয়েবল হিসাবে কি
     -d; স্ট্রিংয়ের বাইরে # ফিল্টার স্পেস
    r 0 # লোয়ারকেসে রূপান্তর করুন
   এস # স্ট্রিংতে সমস্ত অক্ষর বাছাই করুন
কিউএফ # ফল প্রকাশিত ফলাফলের তালিকা এবং সমতার জন্য পরীক্ষা করুন

— Denker
সূত্র

10

পাইথন 2, 63 61 বাইট

lambda*l:len({`sorted(s.lower())`[2::5].strip()for s in l})<2

একটি বেনামে ফাংশন যা বাস্তবে এন আর্গুমেন্ট নেয় এবং নির্ধারণ করে যে এগুলির সমস্ত এন পারস্পরিক প্যালিনড্রোম কিনা! f("Lynn", "Nyl N")আয়True ।

এই সেট বোঝার কৌশলটি xnor দ্বারা। এটি দুটি বাইট সংরক্ষণ করেছে, কিন্তু পুরানো পদ্ধতিরটি খুব ঝরঝরে দেখাচ্ছে:

exec"a=`sorted(input().lower())`[2::5].strip();a"*2;print a==aa

— লিন
সূত্র

`sorted(input().lower())`.strip(" [',")একই দৈর্ঘ্য: /

— Sp3000

execজিনিস চালাক কিন্তু অত্যন্ত জটিল বলে মনে হয়। আপনি আরও ভাল করতে পারেন lambda*l:len({`sorted(s.lower())`[2::5].strip()for s in l})<2।

— xnor

2

ধন্যবাদ! আমি কিছুটা হতাশ - খুব দুর্দান্ত লাগছিল। যাইহোক পোস্টে রাখা।

— লিন

7

জেলি, 12 বাইট

ḟ€⁶O&95Ṣ€QLḂ

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ḟ€⁶O&95Ṣ€QLḂ  Main link. Input: A (list of strings)

  ⁶           Yield ' '.
ḟ€            Filter it from each string.
   O          Apply ordinal to all characters.
    &95       Take bitwise AND with 95 to make the ordinals case-insensitive.
       Ṣ€     Sort each list of ordinals.
         Q    Deduplicate the list.
          L   Get the length.
           Ḃ  Compute the length's parity (1 -> 1, 2 -> 0).

বিকল্প সংস্করণ, প্রতিযোগী নয় (9 বাইট)

জেলির বড় হাতের অণুতে একটি ত্রুটি ছিল, এবং জেলি এখনও সাম্যের জন্য তালিকাগুলি পরীক্ষা করার জন্য কোনও অন্তর্নির্মিত ছিল না ...

ḟ⁶ŒuṢµ€⁼/

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ḟ⁶ŒuṢµ€⁼/     Main link. Input: A (list of strings)

     µ€       Map the chain to the left over A.
 ⁶            Yield ' '.
ḟ             Filter it from the string.
  Œu          Cast to uppercase.
    Ṣ         Sort.
       ⁼/     Reduce by equality.

— ডেনিস
সূত্র

6

সিজেম, 11 12 14 বাইট

3 2 বাইট সরানো হয়েছে @ ফ্রাইআমTheEggman ধন্যবাদ

{lelS-$}2*=

এটি অনলাইন চেষ্টা করুন!

{      }2*       e# do this twice
 l               e# read line as a string
  el             e# make lowercase
    S-           e# remove spaces from string
      $          e# sort
          =      e# compare strings

— লুইস মেন্ডো
সূত্র

@ ফ্রাইআম দ্য এজিজিম্যান আপনাকে ধন্যবাদ!

— লুইস মেন্ডো

@ ফ্রাইআম দ্য এজিজিম্যান আবার ধন্যবাদ! সিজেএম :-) সম্পর্কে আমার এখনও অনেক কিছু শিখতে হবে

— লুইস মেন্ডো

3

আপনার কোডটি গোপনে হাসছে। lel।

— সাইয়েস

নাকি এটি একটি? lel==> 1e1কেউ জানে না। এটি একটি রহস্য।

— ব্যবহারকারী48538

6

জাভাস্ক্রিপ্ট, 69 61 60 59 বাইট

ধন্যবাদ বন্ধ 1 বাইট @ ӍѲꝆΛҐӍΛПҒЦꝆ । সংবাহন সঙ্গে বন্ধ 1 বাইট ( নির্দিষ্ট দ্বারা @apsillers )

n=>m=>(G=s=>[]+s.toLowerCase().split(/ */).sort())(n)==G(m)

কোড স্নিপেট দেখান

f=n=>m=>
    (G=s=>[]+s.toLowerCase()
        .split(/ */)
        .sort()
    )(n)==G(m)

F=(n,m)=>document.body.innerHTML+=`<pre>f('${n}')('${m}') -> ${f(n)(m)}</pre>`

F('Luis Mendo','Don Muesli')
F('Calvins Hobbies','Helka Homba')
F('Android','rains odd')
F('In between days','bayed entwine')
F('Code golf','cod elf got')
F('Lynn','Nyl N')
F('Digital Trauma','Tau Digital Arm')
F('Sp3000','P S 3000')
F('Manage Trash So','Those anagrams')

স্নিপেট প্রসারিত করুন

— অপসারিত
সূত্র

2

খুব সুন্দর, স্পেসগুলি ফিল্টার করে এবং একই সাথে একটি অ্যারেতে রূপান্তর করা!

— নীল

2

খুব সুন্দর. আপনি n=>m=>...

— তরকারী

ব্যবহার করে দেখুন n=>m=>(G=s=>[]+s.toLowerCase().split(/\S/).sort())(n)==G(m)। ম্যাচের পরিবর্তে বিভাজন ব্যবহার করা আপনাকে একটি বাইট সংরক্ষণ করতে হবে।

— মামা ফান রোল

@ ӍѲꝆΛҐӍΛПҒЦꝆ। না, কারণ মনে করুন s='db cz'... এখন ফলাফল ... এবং ফলাফলs.match(/\S/g).sort()['b','c','d','z']s.split(/\s/).sort()['cz','db']

— সরিয়ে ফেলা হয়েছে

@ ӍѲꝆΛҐӍΛПҒЦꝆ। তবে ... আপনার ধারণার দিকে নজর রেখে আমি এটিকে কিছুটা পরিবর্তন করেছি এবং একটি বাইট সংরক্ষণ করেছি ... ধন্যবাদ!

— সরানো হয়েছে

6

এমএটিএল , 11 বাইট

2:"jkXvS]X=

সম্পাদনা (20 মে, 2016) লিঙ্কের কোডটি পরিবর্তিত হয়েছে ভাষা পরিবর্তনের কারণে XzinsteadXv

এটি অনলাইন চেষ্টা করুন!

2:"     ]       % do this twice
   j            % read input line as a string
    k           % convert to lowercase
     Xv         % remove spaces
       S        % sort
         X=     % are they equal?

— লুইস মেন্ডো
সূত্র

3

আপনি কি সেই চ্যালেঞ্জের জন্য নিজের নামটি পরিবর্তন করেছেন?

— ডেনকার

3

@ ডেনারএফে আমি এটি সম্পর্কে কিছুক্ষণ ধরে ভাবছিলাম। আমি কেবল এটিকে চ্যালেঞ্জের সাথে

— একত্রিত করেছি

1

ডন মুসেলি এলওল। তো তুমি মুসেলি লুইসের প্রভু !? এভাবেই আপনি কীভাবে আপনার স্বাস্থ্যকর রঙ বজায় রাখছেন?

— রায়রিং - মনিকা

নিবন্ধন করুন তোমাকে এখানে দেখে ভাল লাগল, রে! গল্ফ ফিরে পেতে!

— লুইস মেন্ডো

আমি প্রতিশ্রুতি দিয়েছি :) একবার এই কোর্স শেষ হয়ে গেলে ... আমি দেখতে পাচ্ছি আপনি এখন সিজেএম শিখছেন। খুব সুন্দর!

— রায়রিং - মনিকা

4

সিরিয়াসলি, 11 9 বাইট

2`,ùSô`n=

এটি অনলাইন চেষ্টা করুন!

প্রত্যেকে একই অ্যালগরিদম ব্যবহার করছে বলে মনে হচ্ছে। এখানে এটি আবার আছে।

2`    `n          Do it twice
  ,               Read a string
   ù              Make it lowercase
    S             Sort
     ô            Strip spaces.
        =         Check equality.

সম্পাদনা: অনুধাবন করা বাছাই করা স্ট্রিংগুলিতে সঠিকভাবে কাজ করে এবং সামনে স্পেসগুলি সাজায় যাতে স্ট্রিপ () কাজ করবে।

— quintopia
সূত্র

4

সি, 165 বাইট

#define d(x) int x(char*a,char*b){
d(q)return*a&224-*b&224;}
#define n(x) for(qsort(x,strlen(x),1,(__compar_fn_t)q);*x<33;x++);
d(s)n(a)n(b)return strcasecmp(a,b);}

পাঠযোগ্য এবং কাজের প্রসঙ্গে,

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

// start of comparison
int q(char *a, char *b){
     return ((*a)&0xdf)-((*b)&0xdf); // case-insensitive
}
int s(char *a, char *b){
    for(qsort(a,strlen(a),1,(__compar_fn_t)q); *a<33; a++) /**/;
    for(qsort(b,strlen(b),1,(__compar_fn_t)q); *b<33; b++) /**/;
    return strcasecmp(a,b);
}
// end of comparison

int main(int i, char **v){
    printf("'%s' '%s'", v[1], v[2]);
    printf("=> %d\n", s(v[1], v[2])); // 0 if equalish
    return 0;
}

— tucuxi
সূত্র

3

zsh, 85 বাইট

[ $(for x in $@;{tr -d \ <<<$x|tr A-Z a-z|fold -1|sort|paste -sd x}|uniq|wc -l) = 1 ]

কমান্ড লাইন আর্গুমেন্ট হিসাবে ইনপুট, রিটার্ন কোড হিসাবে আউটপুট।

forসিনট্যাক্স এই ব্যাশ-বেমানান করে তোলে।

[               # test...
$(for x in $@;  # map over arguments
{tr -d \ <<<$x  # remove spaces
|tr A-Z a-z     # lowercase
|fold -1        # put each character on its own line
|sort           # sort lines
|paste -sd x    # remove all newlines except last
}|uniq          # take only unique lines
|wc -l          # how many lines remain?
) = 1 ]         # if only 1 line left, it must have been an anagram

— ডোরকনব
সূত্র

3

জাপট, 12 বাইট

N®v ¬n ¬xÃä¥

এটি অনলাইন পরীক্ষা!

কিভাবে এটা কাজ করে

        // Implicit: N = array of input strings
N®    Ã // Take N, and map each item Z to:
v ¬n    //  Take Z.toLowerCase(), split into chars, and sort.
¬x      //  Join and trim off whitespace.
ä¥      // Reduce each pair of items (that's exactly one pair) X and Y to X == Y.

— ETHbot
সূত্র

3

জিএনইউ শেড, ৩৩

স্কোরের জন্য -rnবিকল্পগুলি সেড করার জন্য +2 অন্তর্ভুক্ত ।

এটি @ FryAmTheEggman এর রেটিনা উত্তরের প্রায় সরাসরি বন্দর :

:
s/(\w)(.*,.*)\1/\2/i
t
/\w/Q1

Ideone।

— ডিজিটাল ট্রমা
সূত্র

3

পার্ল, 34 33 + 1 = 34 বাইট

s/(.)(.*,.*)\1/$2/i?redo:say!/\w/

প্রয়োজন -nপতাকা এবং বিনামূল্যে -M5.010| -E:

$ perl -M5.010 -ne's/(.)(.*,.*)\1/$2/i?redo:say!/\w/' <<< 'hello, lloeh'
1

কিভাবে এটা কাজ করে:

                                   # '-n' make a implicit while loop around the code
 s/(.)(.*,.*)\1/$2/i               # Remove a letter that occurs on both sides of the comma.
                    ?
                     redo:         # Redo is a glorified goto statement that goes to the top of the while loop
                          say!/\w/ # Check to see if any letter is left

একটি বাইট সংরক্ষণ করতে টের্নারি অপারেটরগুলি ব্যবহার করার পরামর্শ দেওয়ার জন্য msh210 কে ধন্যবাদ

— andlrc
সূত্র

3

বালুচ গির , 9 বাইট

{ṇ₁cḷ}ᵐpᵈ

এটি অনলাইন চেষ্টা করুন!

ভবিষ্যদ্বাণীপূর্ণ সাফল্য / ব্যর্থতার মাধ্যমে সত্যবাদী / মিথ্যা আউটপুট অর্জিত হয়, এটি হ'ল ব্র্যাচল্যাগ।

পূর্বে দুটি ইনপুট স্ট্রিংগুলি একই দৈর্ঘ্য বিয়োগের সাদা অংশ হবে এই ধারণার cṇ₁cḷḍপরিবর্তে বাইট ব্যবহার করে সংরক্ষণ {ṇ₁cḷ}ᵐকরা হয়েছিল, তবে আমি বুঝতে পেরেছিলাম যে এটি যেখানে ব্যর্থ হবে সেখানে এটি সফল হবে Ah Hass, haha।

{    }ᵐ      For both strings in the input,
 ṇ₁          split on spaces,
   c         concatenate,
    ḷ        and lowercase.
       pᵈ    The strings are permutations of each other.

— সম্পর্কযুক্ত স্ট্রিং
সূত্র

2

পিএইচপি, 109 94 বাইট

function f($x){return str_split((trim($x));}function g($x,$y){return array_diff(f($x),f($y));}

ব্লেচ, দু'জন function/returnআমাকে এখানে হত্যা করছে।

অক্ষরের stringএকটি হিসাবে দুটি ইনপুটগুলির মধ্যে পার্থক্য arrayপ্রদান করে। পিএইচপি []জালিয়াতি বিবেচনা করে, returnপ্রয়োজনীয়তাগুলি সন্তুষ্ট করে ।

— ricdesi
সূত্র

3

function($x,$y){$S=str_split;return array_diff($S(trim($x)),$S(trim($y)));}-> 75 বাইট। একটি অনামী ফাংশন তৈরি করে যা ফলাফলটি দেয়। আমি সেই দীর্ঘ ফাংশনটি সরিয়েছি এবং কলগুলি সংক্ষিপ্ত করার str_splitজন্য একটি নির্ধারিত ভেরিয়েবলের সাথে প্রতিস্থাপন করেছি ।

— ইসমাইল মিগুয়েল

খুশী হলাম। এটি একটি ফাংশনে হ্রাস করার জন্য আমি এটি টুইট করছি, এটি এর চেয়ে দুটি ধাপ এগিয়ে, ভাল।

— রিকদেসি

2

বাশ + জিএনইউ ইউটিলিটিস, ৫১

f()(fold -1<<<${@^^}|sort)
f $1|diff -qBw - <(f $2)

একটি ফাংশন সংজ্ঞা দিন f()যা:
- ${@^^} সমস্ত প্যারামিটারকে আপার ক্ষেত্রে রূপান্তর করে
- fold -1 বিভক্ত অক্ষর - প্রতি লাইনে এক
- sorts লাইন
কল diffদিয়ে -qদমন পূর্ণ পরিবর্তন আউটপুট এবং -Bwহোয়াইটস্পেস পরিবর্তন উপেক্ষা করার

— ডিজিটাল ট্রমা
সূত্র

2

পাইক (কমিট 30, অ-প্রতিযোগিতামূলক), 9 বাইট

Fl1dk:S)q

ব্যাখ্যা:

F      )  -  for _ in eval_or_not(input())
 l1       -     ^.lower()
   dk:    -    ^.replace(" ", "")
      S   -   sorted(^)
        q - ^==^

— নীল
সূত্র

2

গণিত, 77 76 বাইট

StringMatchQ[##,IgnoreCase->1>0]&@@(""<>Sort[Characters@#/." "->""]&/@{##})&

প্রথম অংশটি আসলে আমার অন্য প্রশ্নের একটি উত্তর!

— CalculatorFeline
সূত্র

2

পাইক, 54 112 109 109 96 বাইট

#define a(x) sort((array)replace(lower_case(x)," ",""))
int s(mixed i){return a(i[0])==a(i[1]);}

mixed এর চেয়ে কম হতে পারে array(string) ।

s1যদি তার যুক্তিগুলি অ্যানগ্রাগম হয় তবে ফেরত দেয় ।

— বিড়াল
সূত্র

2

প্রশ্ন, 25 বাইট

f:{~/{x@<x:x@&~^x:_x}'x}

দ্রষ্টব্য: গণনা কার্য ফাংশন অন্তর্ভুক্ত f: পরীক্ষার সুবিধার্থে (ল্যাম্বডা হিসাবে আমরা 2 বাইট হ্রাস করতে পারি)

পাঠযোগ্য সংস্করণ

প্রতিটি এক্সের উপরে {আরোহী নাল কম নয় match

{.. x ..} is an anonymous function with arg x
_x        lowers string x
&~^x      where not null x (space is considered null)
x@..      selects elements of x according to indexes .. 
<x        ascending indexes of x (not values). Ex <"cab" is 1 2 0
x@<x      ascending values of x (x at ascending indexes of x)
~         match (diad function). Ex "one"~"one" is true
f'..      applies function f for each argument ..
f/..      applies function f over elements of sequence (fold)

পরীক্ষা

f("Lynn";"Nyl N")                       
f("Digital Trauma";"Tau Digital Arm")   
f("Sp3000";"P S 3000")                  
f("Manage Trash So";"Those anagrams")   
f("Calvins Hobbies";"Helka Homba")      
f("Android";"rains odd")                
f("In between days";"bayed entwine")    
f("Code golf";"cod elf got")

উত্পন্ন করে (1 বি = সত্য, 0 বি = মিথ্যা)

1b
1b
1b
1b
0b
0b
0b
0b

প্রশ্ন সম্পর্কে

সাধারণ উদ্দেশ্যমূলক ভাষা (এপিএল ডেরাইভেটিভ, ডেটা প্রসেসিংয়ে বিশেষজ্ঞ) কেএক্স.কম দ্বারা তৈরি developed উইন্ডোজ / লিনাক্স / ম্যাকোসের জন্য ফ্রি সম্পূর্ণ কার্যকরী মূল্যায়ন সংস্করণ।

— জে সেন্দ্রা
সূত্র

আপনার অর্থ কী, অন্যান্য ভাষা গুরুতর নয়? :

— লুইস মেন্ডো

যদি fসঠিকভাবে নির্ণয় করা কোডের জন্য প্রয়োজন বোধ করা হয়, তাহলে এটি গণনা করা উচিত নয়। অন্যথায়, কেবল এটি আপনার জমা দেওয়ার কোডটি ছেড়ে দিন, এবং কেবলমাত্র কার্যটি কীভাবে বরাদ্দ করা যায় তা প্রদর্শনের জন্য উদাহরণগুলিতে এটি ব্যবহার করুন।

— ঐ মেগো

অবশ্যই, অন্যান্য ভাষাগুলি Q. এর মতোই গুরুতর I তবে কিছু ভাষাগুলি পাঠযোগ্যতার জন্য ত্যাগ করে বা এই ধরণের প্রতিযোগিতার জন্য গ্রন্থাগারগুলিকে সজ্জিত করে। প্রশ্নটি একটি 'সাধারণ উদ্দেশ্য ভাষা', তবুও কোড খুব পঠনযোগ্য নয়।

— জে সেন্দ্র

আপনি যদি কেবল পরে কম হন তবে আপনাকে একবার এক্স বরাদ্দ করতে হবে k)~/{x@<x:_x@&~^x}' 17 বাইট জন্য .. কিন্তু আমি এটা 19 হিসাবে আপনি প্রয়োজন বলতে চাই k)বন্ধনী হিসাবে এই হল Kকোড বদলে Q...

— streetster

2

এপিএল, ৩১ টি চর

{≡/{x[⍋x←('.'⎕R'\u0')⍵~' ']}¨⍵}

তাই ব্যবহার করতে হবে:

    {≡/{x[⍋x←('.'⎕R'\u0')⍵~' ']}¨⍵}'Sp3000' 'P S 3000' 
1

ইংরেজীতে:

{ ... }¨⍵: যুক্তি দুটি উপাদান প্রতিটি জন্য
x←('.'⎕R'\u0')⍵~' ': খালি ছাড়াই বড় হাতের অক্ষরে রূপান্তর করুন (একটি রেজেক্স ব্যবহার করে ...) এবং স্ট্রিংটিকে অস্থায়ী ফলাফল নির্ধারণ করুন x
x[⍋x]: সাজানো এক্স
≡/: বাছাইয়ের দুটি ফলাফলের তুলনা করুন: যদি তারা মেলে, 1 ফিরে আসুন।

— lstefano
সূত্র

এটি অনলাইনে চেষ্টা করা সম্ভব? আমি চেষ্টা এই কিন্তু আমি সত্যিই এটি কিভাবে ব্যবহার করতে জানি না

— লুইস Mendo

অবশ্যই। এখানে: সংজ্ঞা যার পরে আপনি কেবল টাইপ করতে পারেনf 'first avatar' 'second avatar'

— lstefano

ধন্যবাদ! উত্তরের সাথে যুক্ত হতে পারে? যাতে লোকেরা চেষ্টা করতে পারে

— লুইস মেন্ডো

–9:≡/{x[⍋x←0~⍨32|⎕UCS⍵]}¨

— Adám

@ অ্যাডাম: এটি কাজ করবে না কারণ ≡/{x[⍋x←0~⍨32|⎕UCS⍵]}¨'pp' '00'1 দেয়

— লিস্টফানো

2

জাভা, 218 বাইট

আমি প্রথমবার জাভা লিখেছি ...

Golfed:

import java.util.Arrays;boolean M(String a,String b){char[]A=a.toUpperCase().replace(" ","").toCharArray();char[]B=b.toUpperCase().replace(" ","").toCharArray();Arrays.sort(A);Arrays.sort(B);return Arrays.equals(A,B);}

Ungolfed:

import java.util.Arrays;
public class ManageTrashSo {
    public boolean M(String a, String b) {
    char[] A = a.toUpperCase().replace(" ", "").toCharArray();
    char[] B = b.toUpperCase().replace(" ", "").toCharArray();
    Arrays.sort(A);
    Arrays.sort(B);
    return Arrays.equals(A, B);
   }
}

পরীক্ষামূলক:

    ManageTrashSo manageTrashSo = new ManageTrashSo();

    //True
    System.out.println(manageTrashSo.M("Lynn", "Nyl N"));
    System.out.println(manageTrashSo.M("Digital Trauma", "Tau Digital Arm"));

    //False
    System.out.println(manageTrashSo.M("Android", "rains odd"));
    System.out.println(manageTrashSo.M("In between days", "bayed entwine"));

— পিট আরডেন
সূত্র

আমি জানি এটি প্রায় এক বছর কেটে গেছে, তবে আপনি এটি 32 টি বাইট দ্বারা এটি গল্ফ করতে পারেন:

boolean f(String...a){java.util.Arrays x=null;String[]A=g(a[0]),B=g(a[1]);x.sort(A);x.sort(B);return x.equals(A,B);}String[]g(String a){return a.replace(" ","").toUpperCase().split("");}

( 186 বাইট ) বা আপনি যদি এটি একটি জাভা 8 ল্যাম্বডায় রূপান্তর করেন তবে এটি হতে পারে:

a->b->{java.util.Arrays x=null;String[]A=g(a),B=g(b);x.sort(A);x.sort(B);return x.equals(A,B);};String[]g(String a){return a.replace(" ","").toUpperCase().split("");}

( 167 বাইট )। এখানে পরীক্ষার কোড সহ একটি টিআইও রয়েছে।

— কেভিন ক্রুইজসেন

2

জাপট , 10 বাইট

v á øVrS v

চেষ্টা করে দেখুন

— রোমশ
সূত্র

1

রুবি, 50 বাইট

def f;gets.upcase.chars.sort.join.strip;end
p f==f

লেখা f=->{...}এবং f[]==f[]ঠিক দীর্ঘ। :(

— লিন
সূত্র

1

পাওয়ারশেল, 81 বাইট

param([char[]]$a,[char[]]$b)-join($a-replace' '|sort)-eq-join($b-replace' '|sort)

একটি হালকা পুনর্লিখন আমার উত্তরেরলিঙ্কযুক্ত আনগ্রাম চ্যালেঞ্জ ।

চর-অ্যারে হিসাবে ইনপুট নেয়, -replaceস্থানগুলি সরিয়ে ফেলতে একটি ক্রিয়াকলাপ সম্পাদন করে , sortসেগুলি (যা বর্ণানুক্রমিকভাবে সাজায়, ASCII মান দ্বারা নয়), তারপরে -joinসেগুলিকে আবার স্ট্রিংয়ে নিয়ে যায়। -eqPowerShell এ ডিফল্ট কেস-অবশ দ্বারা, কিন্তু এখানে এটা স্ট্রিং সম্পাদনা করা যেতে হবে, যেমন [char]'a'সমান নয় [char]'A', অত কারণ -join।

— AdmBorkBork
সূত্র

1

পার্ল, 35 বাইট

এর জন্য +1 অন্তর্ভুক্ত করুন -p

কিছুটা আপত্তিজনক যেহেতু এটি কমান্ডলাইনে দেওয়া প্রোগ্রামের উপর নির্ভর করে।

perl -pe'<>=~s%\S%*_=s/$&//i?_:0%reg;$_=!//'

তারপরে STDIN এ টানা 2 লাইন হিসাবে স্ট্রিং দিন

একটি অত্যন্ত আপত্তিজনক সমাধান 30 বাইট:

perl -ne'<>=~s%\w%1/!s/$&//i%reg;1/!//'

এটিগুলি ক্র্যাশ করে যদি স্ট্রিংগুলি অ্যানগ্রামগুলি না থাকে এবং তাই শেলের দৃষ্টিকোণ থেকে একটি মিথ্যা প্রস্থান কোড দেয়। এটি এই মামলার জন্য এসটিডিআরআরে আবর্জনাও দেয়। যদি স্ট্রিংগুলি অ্যানগ্রাম থাকে তবে প্রোগ্রামটি নিঃশব্দ এবং একটি "সত্য" প্রস্থান কোড দেয়

— টন হসপেল
সূত্র

1

পিএইচপি , 89 বাইট

for(;$i++<2;)$r[]=count_chars(join(explode(" ",strtolower($argv[$i]))));echo$r[0]==$r[1];

এটি অনলাইন চেষ্টা করুন!

পিএইচপি , 94 বাইট

for(;$i++<2;sort($x),$r[]=trim(join($x)))$x=str_split(strtolower($argv[$i]));echo$r[0]==$r[1];

এটি অনলাইন চেষ্টা করুন!

— জার্গ হালসারম্যান
সূত্র

1

এক্সেল ভিবিএ, 122 বাইট

বেনামে VBE তাত্ক্ষণিক উইন্ডো ফাংশন যা VBE তাত্ক্ষণিক উইন্ডোতে পরিসর [A1:B1]এবং আউটপুটগুলি থেকে ইনপুট নেয়

a=Replace([A1]," ",""):b=Replace([B1]," ",""):For i=1To Len(a):b=Replace(b,Mid(a,i,1),"|",,1,1):Next:?b=String(len(a),"|")

— টেলর স্কট
সূত্র

0

সি #, 378 বাইট

আমার প্রতিবন্ধকতা দরকার !!

https://dotnetfiddle.net/FNDt0E

using System;
using System.Linq;
using System.Text;

public class Program
{

    public static void Main()
    {
        var l = "Hello World";

        var r = "Red Who Loll";

        var y = new Func<string,string>(s => new String(s.ToLower().Replace(" ","").OrderBy(v => v).ToArray()));
        var z = new Func<string,string,Func<string,string>,bool>((w,x,f) => f(w) == f(x));
        var o = z(l, r, y);


        Console.WriteLine("{0} & {1} are anagram: {2}",l, r, o);


                Console.WriteLine("C#, {0} bytes", Encoding.Unicode.GetByteCount(@"var y = new Func<string,string>(s => new String(s.ToLower().Replace("" "","""").OrderBy(v => v).ToArray()));
    var z = new Func<string,string,Func<string,string>,bool>((w,x,f) => f(w) == f(x));"));

    }

}

— ক্রিস হেইস
সূত্র

4

প্রোগ্রামিং ধাঁধা এবং কোড গল্ফ স্বাগতম! সাধারণ নিয়মটি হল আপনার ভাষাটিকে আপনার পোষ্টের শিরোনামে আপনার বাইট গণনার সাথে একত্রে রাখে। আপনি #প্রথম লাইনে একটি শীর্ষস্থানীয় যোগ করে এটি করতে পারেন । কোড-গল্ফ প্রশ্নের জন্যও আপনার প্রোগ্রামটি গল্ফ করা প্রয়োজন। শুরুর জন্য আপনার অপ্রয়োজনীয় সাদা স্পেসগুলি সরিয়ে ফেলা উচিত এবং একক-অক্ষর ভেরিয়েবল নাম ব্যবহার করা উচিত। এছাড়াও আপনি আরও কিছু বাইট সংরক্ষণ করার জন্য সর্বদা একটি সম্পূর্ণ প্রোগ্রামের পরিবর্তে (স্পষ্টভাবে নিষিদ্ধ না হয়ে) কোনও ফাংশন ব্যবহার করতে পারেন।

— ডেনকার

@ ডেনারএফ আপনি আমাকে নিনজা করেছেন :)

— বিড়াল

1

সব সাদা জায়গা কেন ??

— ক্যালকুলেটরফলাইন

ট্র্যাশ পরিচালনা করুন

চ্যালেঞ্জ

বিধি

পরীক্ষার মামলা

05 এ বি 1 ই , 9 8 বাইট

রেটিনা, 25

পাইথ, 11 10 বাইট

ব্যাখ্যা

পাইথন 2, 63 61 বাইট

জেলি, 12 বাইট

কিভাবে এটা কাজ করে

বিকল্প সংস্করণ, প্রতিযোগী নয় (9 বাইট)

কিভাবে এটা কাজ করে

সিজেম, 11 12 14 বাইট

জাভাস্ক্রিপ্ট, 69 61 60 59 বাইট

এমএটিএল , 11 বাইট

সিরিয়াসলি, 11 9 বাইট

সি, 165 বাইট

zsh, 85 বাইট

জাপট, 12 বাইট

কিভাবে এটা কাজ করে

জিএনইউ শেড, ৩৩

পার্ল, 34 33 + 1 = 34 বাইট

বালুচ গির , 9 বাইট

পিএইচপি, 109 94 বাইট

বাশ + জিএনইউ ইউটিলিটিস, ৫১

পাইক (কমিট 30, অ-প্রতিযোগিতামূলক), 9 বাইট

গণিত, 77 76 বাইট

পাইক, 54 112 109 109 96 বাইট

প্রশ্ন, 25 বাইট

এপিএল, ৩১ টি চর

জাভা, 218 বাইট

জাপট , 10 বাইট

রুবি, 50 বাইট

পাওয়ারশেল, 81 বাইট

পার্ল, 35 বাইট

পিএইচপি , 89 বাইট

পিএইচপি , 94 বাইট

এক্সেল ভিবিএ, 122 বাইট

সি #, 378 বাইট