ভারসাম্যপূর্ণ শব্দ

33

এই চ্যালেঞ্জটি ডেইলিপ্রোগ্রামার সাবরেডিটে পোস্ট করা হয়েছিল এবং আমি অনুভব করেছি যে এটি কোনও কোড গল্ফ চ্যালেঞ্জের জন্য দুর্দান্ত প্রার্থী হবে। কোনও অক্ষরের ভারসাম্য যদি ব্যালেন্সের বিন্দু থেকে তার দূরত্ব এবং অক্ষরের মানের উপর ভিত্তি করে নির্ধারিত হয়। কোনও বর্ণের মান বর্ণমালায় এর এক-সূচক অবস্থান গ্রহণ করে বা এর ASCII মান থেকে 64 বিয়োগ করে নির্ধারণ করা যেতে পারে। তদ্ব্যতীত, একটি অক্ষরের মান ব্যালেন্স পয়েন্ট থেকে তার দূরত্ব দ্বারা বহুগুণ হয়। আসুন একটি উদাহরণ দেখুন STEAD:

STEAD   -> 19, 20, 5, 1, 4 ASCII values
           This balances at T, and I'll show you why!
S T EAD -> 1*19 = 1*5 + 2*1 + 3*4
           Each set of letters on either side sums to the same value, so
           T is the anchor.

তবে, এটি লক্ষ করা উচিত যে সমস্ত শব্দের ভারসাম্য নয়। উদাহরণস্বরূপ, শব্দটি WRONGকোনও কনফিগারেশনে ভারসাম্য রাখে না। এছাড়াও শব্দ দুটি একটি বর্ণের মধ্যে ভারসাম্য বজায় রাখতে হবে, দুটি অক্ষরের মধ্যে নয়। উদাহরণস্বরূপ, SAASদু'জনের মাঝে যদি একটি চিঠি থাকে তবে ভারসাম্য বজায় রাখে A, তবে যেহেতু কিছুই নেই সেহেতু এটি ভারসাম্য রাখে না।

কাজটি

আপনার এমন একটি প্রোগ্রাম বা ফাংশন তৈরি করা উচিত যা বড় হাতের শব্দটিকে ইনপুট বা ফাংশন আর্গুমেন্ট হিসাবে গ্রহণ করে এবং তারপরে দুটি আউটপুট তৈরি করে:

  1. শব্দটি যদি ভারসাম্য বজায় রাখে তবে শব্দটি বাম পাশ, একটি স্থান, অ্যাঙ্কর লেটার, অন্য একটি স্থান এবং ডান পাশ দিয়ে মুদ্রিত হওয়া উচিত।

    function (STEAD) -> S T EAD

  2. শব্দটি ভারসাম্য না রাখলে আপনার শব্দটি প্রিন্ট করে নেওয়া উচিত followed DOES NOT BALANCE

    function (WRONG) -> WRONG DOES NOT BALANCE

আপনি ধরে নিতে পারেন যে সমস্ত ইনপুট বড় হাতের হবে এবং কেবলমাত্র আলফা অক্ষর থাকবে।

উদাহরণ I / O

function (CONSUBSTANTIATION) -> CONSUBST A NTIATION
function (WRONGHEADED)       -> WRO N GHEADED
function (UNINTELLIGIBILITY) -> UNINTELL I GIBILITY
function (SUPERGLUE)         -> SUPERGLUE DOES NOT BALANCE

এটি কোড-গল্ফ , তাই বাইটের মধ্যে সংক্ষিপ্ত উত্তর ins

code-golf 
— Kade
সূত্র
আমরা কি একক বর্ণের শব্দের আউটপুটে ফাঁকা স্থানগুলি বাদ দিতে পারি, যেমন function (A)-> A-> `এ instead এর পরিবর্তে?
— নিমি
1
@ নিমিমি হ্যাঁ, আপনি স্থানগুলি বাদ দিতে পারেন।
— কেদে
একক অক্ষর ইনপুট কি আদৌ ভারসাম্য হিসাবে বিবেচনা করা উচিত?
— কিছু ব্যবহারকারী
1
@ সুমিউসার হ্যাঁ, কারণ উভয় পাশের "ওজন" 0
— কেড
14
BALANCE DOES NOT BALANCE
— অপ্টিমাইজার 14

উত্তর:

6

পাইথ, 49 বাইট

jd.xcz,Jhf!s*Vm-Cd64zr_TlzUzhJ,z"DOES NOT BALANCE

প্রদর্শন.

ব্যাখ্যা:

jd.xcz,Jhf!s*Vm-Cd64zr_TlzUzhJ,z"DOES NOT BALANCE

                                    Implicit: z = input(), d = ' '
         f                Uz        Filter T over range(len(z)).
              m     z               Map the characters in z to
               -Cd64                their ASCII values - 64.
            *V                      Vectorized multiplication by
                     r_Tlz          range(-T, len(z)).
                                    This is equivalent to putting the fulcrum at T.
           s                        Sum the weights.
          !                         Logical not - filter on sum = 0.
        h                           Take the first result.
                                    This throws an error if there were no results.
       J                            Save it to J.
      ,J                    hJ      Form the list [J, J+1].
    cz                              Chop z at those indices, 
                                    before and after the fulcrum.
  .x                                If no error was thrown, return the above.
                              ,z".. If an error was thrown, return [z, "DOES N..."]
jd                                  Join the result on spaces and print.
— isaacg
সূত্র
12

খাঁটি বাশ (কোনও কোরিউটিল বা অন্যান্য ইউটিলিটি নেই), 125

উত্স সম্পর্কে মুহুর্তগুলি ব্যবহার করে গণ গণনার মানক কেন্দ্র:

for((;i<${#1};w=36#${1:i:1}-9,m+=w,M+=w*++i)){ :;}
((M%m))&&echo $1 DOES NOT BALANCE||echo ${1:0:M/m-1} ${1:M/m-1:1} ${1:M/m}

পরীক্ষার আউটপুট:

$ for t in \
> STEAD \
> CONSUBSTANTIATION \
> WRONGHEADED \
> UNINTELLIGIBILITY \
> SUPERGLUE
> do ./wordbal.sh $t; done
S T EAD
CONSUBST A NTIATION
WRO N GHEADED
UNINTELL I GIBILITY
SUPERGLUE DOES NOT BALANCE
$
— ডিজিটাল ট্রমা
সূত্র
10

পাইথন 3, 124

w=input()
i=a=b=0
for c in w:n=ord(c)-64;a+=n;b+=n*i;i+=1
m=b//a
print(*[w[:m],w,w[m],"DOES NOT BALANCE",w[m+1:]][b%a>0::2])

এই কোডটি সম্ভাব্য ফুলক্রমগুলি পরীক্ষা করে না, বরং "ভর কেন্দ্র" এবং এটি একটি পূর্ণসংখ্যা কিনা তা পরীক্ষা করে। এটি ভর কেন্দ্র aএবং সন্ধানের জন্য মোট ভর এবং অবস্থান-ওজনযুক্ত ভরগুলি যোগ bকরে এটি করে m=b/a। এটি পরে অবস্থানের স্ট্রিং বিভক্ত হয় m, বা তালিকা-স্লাইসিং ট্রিক "DOES NOT BALANCE"দ্বারা নির্বাচিত স্ট্রিং প্লাস মুদ্রণ করে [_::2]।

— xnor
সূত্র
8

সিজেম, 57 বাইট

l_,,_f{f-W$'@fm.*:+}0#:I){ISIW$=S++t}" DOES NOT BALANCE"?

এটি এখনও কিছুটা গল্ফ করা যেতে পারে।

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

— অপ্টিমাইজার
সূত্র
এটি এটি স্থির করে। '@fmতুলনায় খাটো 64f-:i।
— ডেনিস
হ্যাঁ .. ভুলে গেছে যে সিজেম চর বিয়োগের ক্ষেত্রে অদ্ভুত আচরণ করে ..
— অপ্টিমাইজার
7

জাভাস্ক্রিপ্ট (ES6), 211 200 160 বাইট

f=w=>{for(j=-w.length;j++;)if(![...w].reduce((p,v,i)=>p+(parseInt(v,36)-9)*(j+i),0))return w.slice(0,-j)+` ${w[-j]} `+w.slice(1-j);return w+` DOES NOT BALANCE`}

পূর্ববর্তী প্রচেষ্টা, 200 বাইট

আমাকে গল্ফ এনে সাহায্য করার জন্য edc56 এবং nderscore ধন্যবাদ

f=w=>{for(j=0,r=(a,z)=>[...a][z||`reverse`]().reduce((p,v,i)=>p+(parseInt(v,36)-9)*++i,0);j++<w.length;)if(r(a=w[s=`slice`](0,j))==r(b=w[s](j+1),s))return a+` ${w[j]} `+b;return w+` DOES NOT BALANCE`}

ডেমো

ফায়ারফক্স এবং এজ এখনকার জন্য, এটি ES6 হিসাবে

f=w=>{for(j=1-w.length;j++;)if(!([...w].reduce((p,v,i)=>p+(parseInt(v,36)-9)*(j+i),0)))return w.slice(0,-j)+` ${w[-j]} `+w.slice(1-j);return w+` DOES NOT BALANCE`}

// DEMO
console.log = function(a) {
  document.body.innerHTML += a + "<br>";
}

console.log(f('STEAD'));
console.log(f('CONSUBSTANTIATION'));
console.log(f('WRONGHEADED'));
console.log(f('UNINTELLIGIBILITY'));
console.log(f('SUPERGLUE'));
স্নিপেট প্রসারিত করুন

— rink.attendant.6
সূত্র
3
অ্যারে বোঝার চেষ্টা করুন [এর জন্য (ডাব্লু এর জন্য) ভি.সি.আর.কোড ....], এটি সাধারণত স্ট্রিংয়ের জন্য ম্যাপের চেয়ে 1 বাইট কম
— edc65
@ edc65 ধন্যবাদ! প্রতিদিন নতুন কিছু শিখুন
— rink.attendant.6
1
@ edc65 অ্যারে উপলব্ধি প্রযুক্তিগতভাবে এখন ES7 খসড়াটিতে ঠেলে দেওয়া হয়েছে :(
— nderscore
1
-1 বাইট: j=0কলটির অভ্যন্তরে সরে যান charCodeAt:)
— nderscore
6

সি, 236 198 192 188 180 173 বাইট

a,i,j,k,L;f(char*s){L=strlen(s);for(;i<L;i++){for(a=j=0;j<L;j++)a+=(s[j]-64)*(i-j);if(!a)break;}for(;k<L;k++)printf(k-i?"%c":" %c ",s[k]);if(a)printf(" DOES NOT BALANCE");}

প্রধান () দ্বারা প্রসারিত:

#define p printf    
a,i,j,k,L;
f(char*s)
{
    L=strlen(s);
    for(;i<L;i++){
        for(a=j=0;j<L;j++)
            a+=(s[j]-64)*(i-j);
        if(!a)
            break;
    }
    for(;k<L;k++)
        printf(k-i?"%c":" %c ",s[k]);
    if(a)
        printf(" DOES NOT BALANCE");
}
// 83 bytes below
int main(int argc, char **argv)
{
    f(argv[1]);
    printf("\n");
}

প্রতিপাদন:

$ ./a.out CONSUBSTANTIATION
CONSUBST A NTIATION
$ ./a.out WRONGHEADED
WRO N GHEADED
$ ./a.out A
 A 
$ ./a.out WRONG
WRONG DOES NOT BALANCE
$ ./a.out SUPERGLUE
SUPERGLUE DOES NOT BALANCE
— কিছু ব্যবহারকারী
সূত্র
1
উত্তরটি পোস্ট করার জন্য আমার সমাধানটি আপনার অনুরূপ, তবে আমি ১৪6 টি অক্ষরে নামতে সক্ষম হয়েছিল: i,l=1,j;g(char*v){for(;v[i]&&l;++i)for(j=l=0;v[j];++j)l+=(i-j)*(v[j]-64);l?printf("%s DOES NOT BALANCE",v):printf("%.*s %c %s",--i,v,v[i],v+i+1);}দ্রষ্টব্য: অপরিবর্তিত আচরণ ব্যবহার করেছে :)
— কোল ক্যামেরন
আমি মনে করি আপনার যাইহোক পোস্ট করা উচিত। আমি আরও বুঝতে পেরেছিলাম যে আমার # ডেফাইনটি বাইটগুলি নষ্ট করার সাথে সাথে আমার মুক্তি দেওয়া উচিত।
— কিছু ব্যবহারকারী
আমি পিএইচপি দিয়ে সিটিকে পরাস্ত করার জন্য খুব চেষ্টা করছি তবে আমি এখনও বাইট অফ
— rink.attendant.6
6

সিজেম, 50 বাইট

r_'@f-_ee::*:+\:+md"X DOES NOT BALANCEX"@?)/()@]S*

জাভা ইন্টারপ্রেটার ব্যবহার করে, এটি ভারসাম্যহীন শব্দের জন্য এসটিডিআরআর-এর ত্রুটির সাথে প্রস্থান করে।

আপনি যদি সিজেএম ইন্টারপ্রেটারে কোডটি চেষ্টা করে থাকেন তবে আউটপুটের শেষ লাইন ব্যতীত সমস্ত কিছু উপেক্ষা করুন।

ধারণা

আমার "আসল ধারণা" আমার কাছে বেশ কয়েক ঘন্টা আগে পোস্ট করা @nnor একই পন্থায় পরিণত হয়েছিল । তবুও, এটি এখানে যায়:

মানগুলির একটি তালিকা দেওয়া (ভি 0 ,… ভি এন ) , আমাদের কাছে v_t হল তালিকাটির অ্যাঙ্কর এবং কেবল নিম্নলিখিতগুলির সমতুল্য শর্তাদি থাকলে:

  • টিভি 0 +… + 1v টি -1 == 1 ভি টি + 1 +… টিভি এন

  • (0 - টি) ভি 0 +… + (এন - টি) ভি এন == 0

  • 0 ভি 0 +… + এনভি এন == টি (ভি 0 +… + ভি এন )

  • t: = (0v 0 +… + nv n ) / (v 0 +… + v n ) একটি পূর্ণসংখ্যা।

কোড

r     e# Read a whitespace separated token from STDIN.
_'@f- e# Push a copy and subtract '@' from each char (pushes code point - 64). 
_ee   e# Push a copy of the array of values and enumerate them.
::*   e# Multiply each value by its index.
:+    e# Add all results.
\:+   e# Add the unmodified values.
md    e# Perform modular division. Pushes quotient and residue.

"X DOES NOT BALANCEX"

@     e# Rotate the quotient on top of the string.
?     e# If the residue is 0, select the quotient. Otherwise, select the string.

এই অংশে, আমরা ওভারলোডেড অপারেটরদের সাথে কিছুটা মজা শুরু করি।

ভাগফলের জন্য, এটি ঘটে:

)     e# Add 1 to the quotient.
/     e# Split the input string into chunks of that length.
(     e# Shift out the first chunk.
)     e# Pop the last character of the first chunk.
@     e# Rotate the rest of the string on top of the stack.
]S*   e# Wrap all three parts in an array and join them, separating by spaces.

স্ট্রিংয়ের জন্য, এটি ঘটে:

)     e# Pop out the last char: "X DOES NOT BALANCE" 'X'
/     e# Split the remainder at X's: ["" " DOES NOT BALANCE"]
(     e# Shift out the first chunk: [" DOES NOT BALANCE"] ""
)     e# Pop out the last char.

এই সময়ে, একটি রানটাইম ত্রুটি ঘটে, যেহেতু ""একটি শেষ চর নেই char স্ট্যাকটি মুদ্রিত হয় এবং এক্সিকিউটিভ অবিলম্বে বাতিল করা হয়।

— ডেনিস
সূত্র
আপনার লিঙ্ক করা কোডটি আলাদা (এবং আরও ভাল?) বলে মনে হচ্ছে
— অদিতসু
@ অ্যাডিটসু: ওহ, ভুল লিঙ্ক। এটি সংক্ষিপ্ত এবং ক্লিনার, হ্যাঁ, তবে এর পিছনে স্থান রয়েছে ...
— ডেনিস
5

জুলিয়া, 122 বাইট

s->(v=[int(i)-64for i=s];m=dot(v,1:length(s))/sum(v);m==int(m)?join([s[1:m-1],s[m],s[m+1:end]]," "):s*" DOES NOT BALANCE")

এটি একটি নামহীন ফাংশন তৈরি করে যা স্ট্রিংটিকে ইনপুট হিসাবে গ্রহণ করে এবং একটি স্ট্রিং প্রদান করে। এটি কল করার জন্য, এটির একটি নাম দিন f=s->...।

আমরা শব্দটি এক-মাত্রিক ব্যবস্থার মতো আচরণ করি যার জন্য আমাদের ভর কেন্দ্রের সন্ধান করতে হবে। ভর কেন্দ্রে জনগণের অবস্থানগুলির সাথে বিন্দু হিসাবে গণনা করা হয়, সিস্টেমের মোট ভর দিয়ে বিভক্ত। যদি গণিত কেন্দ্রটি একটি পূর্ণসংখ্যা হয় তবে এটি শব্দের বর্ণগুলির একটির সাথে মিলে যায়। অন্যথায় শব্দটির ভারসাম্য নেই।

অবহেলিত + ব্যাখ্যা:

function f(s)
    # Create a vector of ASCII code points -- these are the "masses"
    v = [int(i)-64 for i in s]

    # Compute the center of mass, taking the locations to be the indices
    m = dot(v, 1:length(s)) / sum(v)

    # Check whether the center corresponds to a letter's position
    if m == int(m)
        join([s[1:m-1], s[m], s[m+1:end]], " ")
    else
        m * " DOES NOT BALANCE"
    end
end

উদাহরণ:

julia> f("WRONG")
"WRONG DOES NOT BALANCE"

julia> f("STEAD")
"S T EAD"

julia> f("CONSUBSTANTIATION")
"CONSUBST A NTIATION"
— অ্যালেক্স এ।
সূত্র
5

পিএইচপি, 249 174 বাইট

একটি কমান্ড-লাইন আর্গুমেন্ট নেয়।

<?for($i=-$l=strlen($w=$argv[1]);$i++;){for($k=$q=0;$l>$k;)$q+=($i+$k)*(ord($w[$k++])-64);$q?:exit(substr($w,0,-$i)." {$w[-$i]} ".substr($w,1-$i));}echo"$w DOES NOT BALANCE";

প্রাথমিক প্রচেষ্টা:

<?function r($a){for($i=$q=0;strlen($a)>$i;){$q+=(ord($a[$i])-64)*++$i;}return$q;}for($i=0;$i++<strlen($w=$argv[1]);)(strlen($w)<2?exit($w):(r(strrev($a=substr($w,0,$i)))==r($b=substr($w,$i+1)))?exit("$a {$w[$i++]} $b"):0);echo"$w DOES NOT BALANCE";
— rink.attendant.6
সূত্র
4

হাস্কেল, 161 135 বাইট

a#b=a*(fromEnum b-64)
v=sum.zipWith(#)[1..]
h![]=h++" DOES NOT BALANCE"
h!(x:y)|v(reverse h)==v y=h++' ':x:' ':y|1<2=(h++[x])!y
f=([]!)

ব্যবহারের উদাহরণ:

*Main> putStr $ unlines $ map f ["CONSUBSTANTIATION","WRONGHEADED","UNINTELLIGIBILITY","SUPERGLUE"]
CONSUBST A NTIATION
WRO N GHEADED
UNINTELL I GIBILITY
SUPERGLUE DOES NOT BALANCE

এটি কীভাবে কাজ করে: fসহায়ক সহায়কটিকে কল করে !যা দুটি পরামিতি নেয়, একটি নির্দিষ্ট অবস্থানে শব্দের বাম এবং ডান অংশ। উভয় অংশের সমান ওজন (ফাংশন v) থাকে বা ডান অংশের প্রথম অক্ষরটি বাম দিকে সরানো হলে পুনরাবৃত্তভাবে কল করে তবে এটি থামবে । DOES NOT BALANCEডান অংশটি খালি থাকলে বার্তাটি দিয়ে এটি শেষ হয় ।

— nimi
সূত্র
4

সি, 183 134 বাইট

h,i,a=1;c(char*s){for(;s[i++]&&a;)for(a=h=0;s[h];)a+=(s[h]-64)*(h++-i);printf(a?"%.*s DOES NOT BALANCE":"%.*s %c %s",i,s,s[--i],s+i);}

নতুন সংস্করণ ব্যাখ্যা করা হয়েছে:

অন্যান্য দুটি এন্ট্রিগুলির মতো এটি একদিকে ধ্রুবক সংযোজন এবং অন্যদিকে বিয়োগকে আশাবাদী শূন্যে পৌঁছে দেওয়ার জন্য ব্যয় করে যা ভারসাম্যের ইঙ্গিত। আমার আসল আউটপুটটি প্রথম উত্তর থেকে পুনরায় ব্যবহৃত হয়েছে, যদিও সামান্য পরিবর্তিত হয়েছে।

l,h,i,a,b;c(char*s){for(l=strlen(s);h++<l&&(a^b|!a);)for(i=a=b=0;i<l;i++)i==h?a=b,b=0:(b+=(s[i]-64)*abs(i-h));printf(a==b?"%.*s %c %s":"%.*s DOES NOT BALANCE",a==b?h:l,s,s[--h],s+h);}

পুরানো সংস্করণ ব্যাখ্যা:

প্রথম লুপ (এইচ) স্ট্রিংয়ের দৈর্ঘ্যের জন্য প্রধান পুনরাবৃত্ত হয়। দ্বিতীয় লুপ (i) জমে (খ) h == i অবধি। এটি হয়ে গেলে, (খ) (ক) এ সঞ্চিত হয়, 0 এ পুনরায় সেট করুন, এবং তারপরে স্ট্রিংয়ের শেষ না হওয়া অবধি চলতে থাকবে যেখানে (ক) (বি) এর সাথে তুলনা করা হয়। যদি কোনও মিল থাকে তবে প্রধান পুনরাবৃত্তির লুপটি ভেঙে আউটপুট মুদ্রিত হবে।

— openaddr
সূত্র
3

রুবি 175

F=->s{v=->s{(0...s.size).map{|i|(i+1)*(s[i].ord-64)}.inject :+}
r="#{s} DOES NOT BALANCE"
(0...s.size).map{|i|b,a=s[0...i],s[i+1..-1]
v[b.reverse]==v[a]&&r=b+" #{s[i]} "+a}
r}

এটি অনলাইনে পরীক্ষা করুন: http://ideone.com/G403Fv

এটি একটি বেশ সোজা রুবি বাস্তবায়ন। এখানে পঠনযোগ্য প্রোগ্রাম:

F=-> word {
  string_value = -> str {
    (0...str.size).map{|i|(i+1) * (str[i].ord - 64)}.inject :+
  }

  result = "#{word} DOES NOT BALANCE"

  (0...word.size).map {|i|
    prefix, suffix = word[0...i], word[i+1..-1]
    if string_value[prefix.reverse] == string_value[suffix]
      result = prefix + " #{word[i]} " + suffix
    end
  }

  result
}
— ক্রিশ্চিয়ান লুপাস্কু
সূত্র
3

আর, 190 বাইট

নামহীন ফাংশন হিসাবে আমি মনে করি আমি আরও কিছু পেতে পারি তবে এটির জন্য অপেক্ষা করতে হবে।

function(A){D=colSums(B<-(as.integer(charToRaw(A))-64)*outer(1:(C=nchar(A)),1:C,'-'));if(!length(E<-which(B[,D==0]==0)))cat(A,'DOES NOT BALANCE')else cat(substring(A,c(1,E,E+1),c(E-1,E,C)))}

সংক্ষিপ্ত ব্যাখ্যার সাথে কিছুটা অবহেলিত

function(A){
D=colSums(  #column sums of the outer function * character values
    B<-(
       as.integer(charToRaw(A))-64)    # character values
       * outer(1:(C=nchar(A)),1:C,'-') # matrix of ranges eg -3:2, -1:4, etc
       )
if(!length(
    E<-which(B[,D==0]==0) # where the colsum = 0, get the index of the zero
    ))
    cat(A,'DOES NOT BALANCE')
else 
    cat(substring(A,c(1,E,E+1),c(E-1,E,C)))  #cat the substrings
}

এটি শেষে একটি নতুন লাইন রাখে না।

টেস্ট রান

> f=
+ function(A){D=colSums(B<-(as.integer(charToRaw(A))-64)*outer(1:(C=nchar(A)),1:C,'-'));if(!length(E<-which(B[,D==0]==0)))cat(A,'DOES NOT BALANCE')else cat(substring(A,c(1,E,E+1),c(E-1,E,C)))}
> 
> f('CONSUBSTANTIATION')
CONSUBST A NTIATION
> f('WRONGHEADED')
WRO N GHEADED
> f('UNINTELLIGIBILITY')
UNINTELL I GIBILITY
> f('SUPERGLUE')
SUPERGLUE DOES NOT BALANCE
>
— MickyT
সূত্র
2

সি, 142 বাইট

আমাকে এতে মারার জন্য কিছু ব্যবহারকারীর ক্রেডিট :)

i,l=1,j;g(char*v){for(;v[i]&&l;++i)for(j=l=0;v[j];++j)l+=(i-j)*(v[j]-64);printf(l?"%.*s DOES NOT BALANCE":"%.*s %c %s",l?i:--i,v,v[i],v+i+1);}
— কোল ক্যামেরন
সূত্র
1

জাভা, 240 বাইট

String b(String s){for(int i=-1,a=s.length(),l=0,r,m;++i<a;){for(r=i;--r>=0;l+=(s.charAt(r)-64));for(m=r=0;++m+i<a;r+=(s.charAt(m+i)-64)*m);if(l==r)return s.substring(0,i)+" "+s.charAt(i)+" "+s.substring(i+1);}return s+" DOES NOT BALANCE";}
— ইসিএস
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.