বৈদ্যুতিন পিগি ব্যাংক

Question

একটি পিগি ব্যাংক সংগ্রহ কয়েন ব্যবহার করা একটি ধারক এই প্রতিদ্বন্দ্বিতা চার মার্কিন কয়েন ব্যবহার এর জন্য:। সিকি, তুচ্ছ, নিকেল, এবং পেনি ।

চ্যালেঞ্জ

আপনার চ্যালেঞ্জটি একটি বৈদ্যুতিন পিগি ব্যাংক তৈরি করা। একটি প্রোগ্রাম লিখুন (বা ফাংশন) যখন চালানো (বা বলা হয়), আপনার প্রতিটি মুদ্রার গণনা আউটপুট (বা প্রত্যাবর্তন) করে, সেই সাথে মুদ্রার পরিমাণ মোট পরিমাণ।

ইনপুট

আপনার পিগি ব্যাঙ্কের কয়েনগুলির একটি স্ট্রিং, অ্যারে ইত্যাদি ... (আপনার পছন্দ)

 Q - Quarter(Value of 25)
 D - Dime(Value of 10)
 N - Nickel(Value of 5)
 P - Penny(Value of 1)

আউটপুট

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

উদাহরণ

 Input          ->       Output

 P              ->       1,0,0,0,1 or 0,0,0,1,1 or 0,0,1,0,1 or 1,1
 N              ->       0,1,0,0,5
 D              ->       0,0,1,0,10 
 Q              ->       0,0,0,1,25
 QQQQ           ->       0,0,0,4,100
 QNDPQNDPQNDP   ->       3,3,3,3,123
 PPPPPPPPPP     ->       10,0,0,0,10
 PNNDNNQPDNPQND ->       3,6,3,2,113

বিধি

স্ট্যান্ডার্ড লুফোলগুলি অনুমোদিত নয়।

এটি কোড-গল্ফ , তাই প্রতিটি ভাষার জন্য বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী!

Comments

@ শেগি হ্যাঁ আপনি পারবেন

— ডেভেলপিং

মোট কয়েন ক্রম । আমরা কি ইনপুটটিতে এটির ক্রমটি দিতে পারি?

— অ্যাডম

সুতরাং যদি আদেশটি ইনপুট থেকে অনুমান করা যায়, আমরা কি 0 টি বাদ দিতে পারি? প্রতিটি সংখ্যাটি কোন বর্ণকে নির্দেশ করে তা এখনও স্পষ্ট হবে।

— অ্যাডম

এই আউটপুট বিন্যাসটি কি খুব দূরে? 19 বাইট উত্তর যে আমি নিশ্চিত নন বৈধ: অনলাইনে চেষ্টা করে দেখুন!

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

আমার মনে হচ্ছে একটি [অর্থ] ট্যাগ থাকা উচিত।

— 12

Answer 1

পাইথন 2 , 73 বাইট

-৩ বাইট @ রডকে ধন্যবাদ

C=map(input().count,'QDNP')
print C+[sum(map(int.__mul__,C,[25,10,5,1]))]

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

Comments

কয়েকটি বাইট সংরক্ষণ করতে আপনি এর a*b for a,b in zip(C,[25,10,5,1])সাথে প্রতিস্থাপন করতে পারেনmap(int.__mul__,C,[25,10,5,1])

— রড

Answer 2

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

a,b,c,d=map(input().count,'PNDQ')
print a,b,c,d,a+b*5+c*10+d*25

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

---

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

l=map(input().count,'PNDQ')
a,b,c,d=l
print l+[a+b*5+c*10+d*25]

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

Answer 3

এপিএল (ডায়ালগ ইউনিকোড) , 28 27 বাইট

1 5 10 25(⊢,+.×)'PNDQ'+.=¨⊂

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

ট্যাসিট ফাংশন। বিন্যাসে ভেক্টর হিসাবে ইনপুট নেয় ,'<input>'।

একটি বাইট জন্য ngn ধন্যবাদ!

কিভাবে?

1 5 10 25(⊢,+.×)'PNDQ'+.=¨⊂ ⍝ Main function, tacit.
                          ⊂ ⍝ Enclose
                         ¨  ⍝ Each character of the input
                      +.=   ⍝ Sum the number of matched characters
                'PNDQ'      ⍝ From this string
1 5 10 25(  +.×)            ⍝ Multiply the values with the left argument, then sum them.
          ⊢,                ⍝ And append to the original vector of coins.

Comments

1⊥∘.=∘'PNDQ'->'PNDQ'+.=¨⊂

— এনজিএন

Answer 4

আর , 70 69 বাইট

function(n)c(x<-table(factor(n,c("P","N","Q","D"))),x%*%c(1,5,25,10))

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

স্বতন্ত্র অক্ষরের ভেক্টর হিসাবে ইনপুট নেয়। তাদের এগুলিতে রূপান্তর করে factorsএবং tabulateসেগুলি করে, তারপরে বিন্দুর সাথে মানগুলি গণনা করে।

পরীক্ষার লক্ষ্যে স্বাচ্ছন্দ্যের জন্য, আমি ফাংশনটি প্রত্যাশিত পরীক্ষার কেসগুলি থেকে ইনপুটটিতে রূপান্তর করার একটি উপায় যুক্ত করেছি।

এটি সবেমাত্র ভেক্টর হিসাবে মুদ্রার নামগুলি সংরক্ষণ করে মারধর করে names, যার অর্থ হ'ল আমাদের আরও মুদ্রার প্রকারগুলি থাকলে নীচের পদ্ধতিরটি সম্ভবত গল্ফিয়ার হবে:

আর , 71 70 বাইট

function(n)c(x<-table(factor(n,names(v<-c(P=1,N=5,Q=25,D=10)))),x%*%v)

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

Answer 5

জেলি , 19 বাইট

ċЀ“PNDQ”µæ.“¢¦½ı‘ṭ

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

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

ċЀ“PNDQ”µæ.“¢¦½ı‘ṭ    Main link. Arguments: s (string)
 Ѐ“PNDQ”              For each char in "PNDQ":
ċ                        Count the occurrences of the char in s.
                       Collect the results in an array. Call this a.
         µ             Start a new monadic chain. Argument: a
          æ.           Take the dot product of a with
            “¢¦½ı‘       [1, 5, 10, 25].
                  ṭ    Tack this onto the end of a.

Answer 6

জাভাস্ক্রিপ্ট (ES6), 63 61 বাইট

শেগিকে ধন্যবাদ 2 বাইট সংরক্ষণ করা হয়েছে

অক্ষরের অ্যারে হিসাবে ইনপুট নেয়। আউটপুটস P,N,D,Q,total। Ovs এর পাইথন উত্তর
দ্বারা অনুপ্রাণিত ।

a=>eval(a.join`++,`+`++,[P,N,D,Q,P+N*5+D*10+Q*25]`,P=N=D=Q=0)

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

---

আসল উত্তর, 73 বাইট

অক্ষরের অ্যারে হিসাবে ইনপুট নেয়। আউটপুটস Q,D,N,P,total।

a=>a.map(c=>o[o[4]+='521'[i='QDNP'.search(c)]*5||1,i]++,o=[0,0,0,0,0])&&o

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

Comments

খুব সুন্দরভাবে সম্পন্ন! চারপাশে কিছু জিনিস বদলে আপনি 2 বাইট ছোঁড়াতে পারেন।

— শেগি

Answer 7

এমএটিএল , 22 20 বাইট

!'PNDQ'=Xst[l5X25]*s

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

উদাহরণ সহ ব্যাখ্যা

'PNNDNNQPDNPQND'উদাহরণ হিসাবে ইনপুট বিবেচনা করুন । স্ট্যাকের বিষয়বস্তুগুলি উল্টোদিকে দেখানো হয়েছে, শীর্ষের উপাদানটি নীচে প্রদর্শিত হবে।

!        % Implicit input: string (row vector of chars). Transpose into a
         % column vector of chars
         % STACK: ['P';
                   'N';
                   'N';
                   'D';
                   'N';
                   'N';
                   'Q';
                   'P';
                   'D';
                   'N';
                   'P';
                   'Q';
                   'N';
                   'D']
'PNDQ'   % Push this string (row vector of chars)
         % STACK: ['P';
                   'N';
                   'N';
                   'D';
                   'N';
                   'N';
                   'Q';
                   'P';
                   'D';
                   'N';
                   'P';
                   'Q';
                   'N';
                   'D'],
                  'PNDQ'
=        % Implicit input. Test for equality, element-wise with broadcast
         % STACK: [1 0 0 0;
                   0 1 0 0;
                   0 1 0 0;
                   0 0 1 0;
                   0 1 0 0;
                   0 1 0 0;
                   0 0 0 1;
                   1 0 0 0;
                   0 0 1 0;
                   0 1 0 0;
                   1 0 0 0;
                   0 0 0 1;
                   0 1 0 0;
                   0 0 1 0]
Xs       % Sum of each column
         % STACK: [3 6 3 2]
t        % Duplicate
         % STACK: [3 6 3 2],
                  [3 6 3 2]
[l5X25]  % Push array [1 5 10 25]
         % STACK: [3 6 3 2],
                  [3 6 3 2],
                  [1 5 10 25]
*        % Multiply, element-wise
         % STACK: [3 6 3 2],
                  [3 30 30 50]
s        % Sum
         % STACK: [3 6 3 2],
                  113
         % Implicitly display

Comments

!'PNDQ'=Xst[l5X25]!Y*21 বাইট হয়। যদিও আমি স্বীকার করি আমি এটি পরীক্ষা করিনি।

— জিউসেপ্পে

@Giuseppe ধন্যবাদ, কিন্তু চ্যালেঞ্জ বলে " আপনার পছন্দের অ পূর্ণসংখ্যা বিভেদক", তাই আমি অনুমান মাত্র এক বিভেদক অনুমতি দেওয়া হয়

— লুইস Mendo

আমি এটা খেয়াল করিনি। আহ ভালো.

— জিউসেপ্পে

আমি মনে করি 21 বাইট সমাধান ঠিক আছে ... ওপি সেই প্রভাবের জন্য কিছু মন্তব্য করেছে

— জিউসেপ্পে

@ জিউসেপ গ্রেট! তখন 20 বাইট নিচে। মাথা উঁচু করার জন্য ধন্যবাদ

— লুইস মেন্ডো

Answer 8

জাপট , 25 22 বাইট

3 শে বাইট সংরক্ষিত হয়েছে @ শেগগিকে ধন্যবাদ

`p˜q`¬£èX
pUí*38#éìH)x

এটি অনলাইন পরীক্ষা! লোয়ারকেসে ইনপুট নেয়

ব্যাখ্যা

`p˜q`¬         Split the compressed string "pndq" into chars, giving ["p", "n", "d", "q"].
      £        Map each char X to
       èX      the number of occurrences of X in the input.
<newline>      Set variable U to the resulting array.
 Uí*           Multiply each item in U by the corresponding item in
    38#é         38233
        ìH       converted to base-32, giving [1, 5, 10, 25].
           x   Take the sum.
p              Append this to the end of U.
               Implicit: output result of last expression

Comments

কমা কমাতে গল্ফ করার কোনও উপায় বের করার চেষ্টা করছি, এখন পর্যন্ত খুব ভাগ্য নেই।

— শেগি

বুঝেছি!

— শেগি

এবং লোয়ারকেসে ইনপুট নিয়ে অন্য একটি বাইট সংরক্ষণ করুন।

— শেগি

আর একটি বাইট ছিটকে গেল

— শেগি

@ শেগি চিত্তাকর্ষক, ধন্যবাদ!

— ETH প্রোডাকশনগুলি

Answer 9

এক্সেল (পোলিশ ভাষার সংস্করণ), 150 বাইট

ইনপুটটি এ 1-এ রয়েছে। সূত্রগুলি কোষে রয়েছে B1-F1 :

cell  formula
------------------------------
B1    =DŁ(A1)-DŁ(PODSTAW(A1;"Q";""))
C1    =DŁ(A1)-DŁ(PODSTAW(A1;"D";""))
D1    =DŁ(A1)-DŁ(PODSTAW(A1;"N";""))
E1    =DŁ(A1)-DŁ(PODSTAW(A1;"P";""))
F1    =B1*25+C1*10+D1*10+E1

এবং ত্রৈমাসিক, dimes, nickels, Pennys সংখ্যা কোষে সমষ্টি আউটপুট ফলে B1, C1, D1, E1এবং F1যথাক্রমে।

ইংরেজি ভাষার সংস্করণ (162 বাইট):

cell  formula
------------------------------
B1    =LEN(A1)-LEN(SUBSTITUTE(A1;"Q";""))
C1    =LEN(A1)-LEN(SUBSTITUTE(A1;"D";""))
D1    =LEN(A1)-LEN(SUBSTITUTE(A1;"N";""))
E1    =LEN(A1)-LEN(SUBSTITUTE(A1;"P";""))
F1    =B1*25+C1*10+D1*10+E1

Answer 10

এপিএল + উইন, 33 27 বাইট

5 বাইট সংরক্ষণ করেছেন আদমকে ধন্যবাদ

মুদ্রা স্ট্রিংয়ের স্ক্রিন ইনপুটটির জন্য অনুরোধ জানানো হয়।

n,+/1 5 10 25×n←+⌿⎕∘.='PNDQ'

Comments

5 বাইট সংরক্ষণ করুন:n,+/1 5 10 25×n←+⌿⎕∘.='PNDQ'

— অ্যাডাম

ধন্যবাদ বার্ধক্য আমার আরও ভাল হচ্ছে :(

— গ্রাহাম

Answer 11

05 এ বি 1 ই , 30 26 22 21 19 বাইট

X5T25)s.•50†•S¢=*O=

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

---

X                   # Push 1.
 5                  # Push 5.
  T                 # Push 10.
   25               # Push 25.
     )s             # Wrap stack to array, swap with input.
       .•50†•       # Push 'pndq'.
             S      # Push ['p','n','d','q'] (split).
              ¢     # Count (vectorized).
               =    # Print counts, without popping.
                *   # Multiply counts by [1,2,10,25]
                 O  # Sum.
                  = # Print.

---

ডাম্প:

Full program: X5T25)s.•50†•S¢=*O=
current >> X  ||  stack: []
current >> 5  ||  stack: [1]
current >> T  ||  stack: [1, '5']
current >> 2  ||  stack: [1, '5', 10]
current >> )  ||  stack: [1, '5', 10, '25']
current >> s  ||  stack: [[1, '5', 10, '25']]
current >> .  ||  stack: [[1, '5', 10, '25'], 'pnndnnqpdnpq']
current >> S  ||  stack: [[1, '5', 10, '25'], 'pnndnnqpdnpq', 'pndq']
current >> ¢  ||  stack: [[1, '5', 10, '25'], 'pnndnnqpdnpq', ['p', 'n', 'd', 'q']]
current >> =  ||  stack: [[1, '5', 10, '25'], [3, 5, 2, 2]]
[3, 5, 2, 2]
current >> *  ||  stack: [[1, '5', 10, '25'], [3, 5, 2, 2]]
current >> O  ||  stack: [[3, 25, 20, 50]]
current >> =  ||  stack: [98]
98
stack > [98]

মুদ্রিত আউটপুট:

[3, 25, 20, 50]\n98 or [P, N, D, Q]\n<Sum>

যেহেতু কিছু মুদ্রিত হয়েছিল, শেষের স্ট্যাকটি উপেক্ষা করা হবে।

Answer 12

জে , 29 বাইট

1 5 10 25(],1#.*)1#.'PNDQ'=/]

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

ব্যাখ্যা:

'PNDQ'=/] একটি সমতা টেবিল তৈরি করে

   'PNDQ' =/ 'PNNDNNQPDNPQND'
1 0 0 0 0 0 0 1 0 0 1 0 0 0
0 1 1 0 1 1 0 0 0 1 0 0 1 0
0 0 0 1 0 0 0 0 1 0 0 0 0 1
0 0 0 0 0 0 1 0 0 0 0 1 0 0

1#. সারণীর প্রতিটি সারির যোগফল খুঁজে পায়, এভাবে প্রতিটি মানের উপস্থিতির সংখ্যা

   1#. 'PNDQ' =/ 'PNNDNNQPDNPQND'
3 6 3 2

1#.* এটির বাম এবং ডান যুক্তির বিন্দু পণ্যটি সন্ধান করে

    1 5 10 25(1#.*)3 6 3 2
113

], মানগুলির তালিকায় বিন্দু পণ্য যুক্ত করে

   1 5 10 25(],1#.*)1#.'PNDQ'=/] 'PNNDNNQPDNPQND'
3 6 3 2 113

Answer 13

সি # (.নেট কোর) , 163 136 বাইট

সেখানে প্রচুর বাইট সংরক্ষণের জন্য @ রজনগুলকে ধন্যবাদ!

n=>{var m="";int c=0,i=0,k=0;for(var v=new[]{1,5,10,25};i<4;m+=k+",",c+=k*v[i++],k=0)foreach(var x in n)k+=x=="PNDQ"[i]?1:0;return m+c;}

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

---

পুরনো সংস্করণ:

n=>{var v=new[]{1,5,10,25};string l="PNDQ",m="";int c=0,i,j,k;for(i=0;i<4;i++){for(j=0,k=0;j<n.Length;j++)k+=n[j]==l[i]?1:0;m+=k+",";c+=k*v[i];k=0;}m+=c;return m;}

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

Comments

আমি গলফ পরিচালিত করেছি আপনার soultion নিচে 136 বাইট । তালিকাতে অনেক পরিবর্তন।

— রাজনগুল

@ রজনগুল দুর্দান্ত সমাধান! আমি জিজ্ঞাসা করতে পারি আপনি কেন অ্যারের পরিবর্তে জেনেরিক তালিকায় ইনপুটটি পরিবর্তন করলেন? আফাইক আপনি কোনও স্ট্রিংয়ের অক্ষরগুলি তালিকা না ব্যবহার করে পুনরাবৃত্তি করতে পারেন।

— ইয়ান এইচ।

এটি পূর্ববর্তী সংস্করণ থেকে একটি অবশিষ্টাংশ, তাই আমি n.Countপরিবর্তে ব্যবহার করতে পারি n.Length। যেহেতু পুরোপুরি বাদ দেওয়া হয়েছে আপনি stringএখন ব্যবহার করতে পারেন ।

— রাজনগুল

Answer 14

পার্ল 5 -pF , 59 বাইট

for$i(P,N,D,Q){say s:$i:$\+={P,1,Q,25,D,10,N,5}->{$&}:eg}}{

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

Answer 15

রুবি , 66 বাইট

->s{t=0;{P:1,N:5,D:10,Q:25}.map{|c,v|t+=v*m=s.count(c.to_s);m}<<t}

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

মহান না.

Answer 16

05 এ বি 1 ই , 19 বাইট

"PNDQ"S¢D•Ωт•₂в*O)˜

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

ব্যাখ্যা

"PNDQ"                # push this string
      S               # split to list of chars
       ¢              # count the occurrences of each in input
        D             # duplicate
         •Ωт•         # push 21241
             ₂в       # convert to a list of base 26 digits
               *      # element-wise multiplication
                O     # sum
                 )˜   # wrap in a flattened list

Answer 17

জাভা (ওপেনজেডিকে 8) , 148 বাইট

c->{int q=0,d=0,n=0,p=0;for(char w:c){if(w=='Q')q++;if(w=='D')d++;if(w=='N')n++;if(w=='P')p++;}return ""+q+","+d+","+n+","+p+","+(q*25+d*10+n*5+p);}

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

ঠিক আছে এটি অন্যান্য জাভা জমা দেওয়ার তুলনায় কেবলমাত্র একটি বাইট ছোট , তবে কম সংক্ষিপ্ত: ডি

ব্যাখ্যা:

int q=0,d=0,n=0,p=0;    //Initialize too many integers
for(char w:c){    //Loop through each coin
  if(w=='Q')q++;if(w=='D')d++;if(w=='N')n++;if(w=='P')p++;    //Increment the correct coin
}return ""+q+","+d+","+n+","+p+","+(q*25+d*10+n*5+p);    //Return each coin count and the total monetary value 

Comments

143 বাইট

— সিলিংক্যাট

Answer 18

গোল> <> , 47 বাইট

5R0TiE!vD;
5+@P@@t>b%m$.
a+$P$t
PrPrt
9s+r$P$rt

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

আউটপুট ফর্ম্যাট হয় [P Q N D Value]।

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

5R0TiE!vD;
       >b%m$.

5R0            Repeat command '0' (push 0) 5 times
   T           Set teleport location for later
    i          Input a char
     E         Pop if the last input was EOF; skip next otherwise

               If the last is EOF, the following is run:
      ! D;     Skip 'v', print the contents of the stack from bottom to top, then exit

               Otherwise the following is run:
       v
       >b%m$.  Take the top (input) modulo 11, and jump to (-1, input % 11)
               P%11 = 3, N%11 = 1, D%11 = 2, Q%11 = 4

5+@P@@t        Runs if the input is N
5+             Add 5 to top
  @            Rotate top 3 (the 3rd comes to the top)
   P           Increment the top
  @P@@         Increment the 3rd from top
      t        Teleport to the last 'T'

a+$P$t         Runs if the input is D
a+             Add 10 to top
  $            Swap top two
  $P$          Increment the 2nd from top
     t         Teleport to the last 'T'

PrPrt          Runs if the input is P
P              Increment the top
 r             Reverse the stack
 rPr           Increment the bottom
    t          Teleport to the last 'T'

9s+r$P$rt      Runs if the input is Q
9s+            Add 25 to the top ('s': add 16 to the top)
   r$P$r       Increment the 2nd from bottom
        t      Teleport to the last 'T'

Answer 19

পার্ল 5 -p , 47 বাইট

#!/usr/bin/perl -p
P1N5D10Q25=~s:\D:$\-=-$'*($n=s/$&//g);say$n:egr

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

Answer 20

পাইথ, 23 27 26 বাইট

+Jm/Qd"PNDQ"s.b*NYJ[h05T25

@ আরকে ধন্যবাদ একটি বাইট সংরক্ষণ করা। আউটপুটগুলি [পি, এন, ডি, কিউ, মান] হিসাবে।
এখানে চেষ্টা করুন

ব্যাখ্যা

+Jm/Qd"PNDQ"s.b*NYJ[h05T25
 Jm/Qd"PNDQ"                Save the count of each coin (in PNDQ order) as J.
                   [h05T25  [1, 5, 10, 25].
             .b   J       For each pair of count and value...
               *NY          ... take the product...
            s               ... and get the sum.
+                          Stick that onto the list of counts.

Comments

আপনি জে এর সংজ্ঞা এবং জে এর প্রথম ব্যবহার পেতে পারেন+Jm/Qd"PNDQ"s.b*NYJ[h05T25

— আর কে।

Answer 21

সি (ঝনঝন) , 112 বাইট

f(char *i){int c,d,v[5]={0};for(;c=*i++;v[d=(c|c/2)&3]++,v[4]+="AYJE"[d]-64);for(c=0;c<5;printf("%d,",v[c++]));}

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

আউটপুট সিক এখন পি, কিউ, ডি, এন, মোট-মান
উভয় নিম্ন-কেস এবং আপার-কেস ইনপুটগুলির সাথে কাজ করে।

ব্যাখ্যা:

"AYJE"বা {64+1,64+25,64+10,64+5}হয় 64 + + মান অফ মুদ্রা।
d=(c|c/2)&3(সূচক হিসাবে ব্যবহৃত) এর উপরের এবং নিম্ন উভয় ক্ষেত্রে যথাক্রমে ইনপুটগুলির 1,2,3,0জন্য মান থাকে q,d,n,p।

Comments

106 বাইট

— সিলিংক্যাট

সি = 0 অপসারণ ভাল ছিল। ধন্যবাদ।

— জিপিএস

Answer 22

সি # (.নেট কোর) , 156 বাইট

s=>{Func<char,int>f=i=>{return s.Split(i).Length-1;};var a=new[]{f('P'),f('N'),f('D'),f('Q')};return$"{string.Join(",",a)},{a[0]+a[1]*5+a[2]*10+a[3]*25}";};

Answer 23

জাভা (ওপেনজেডিকে 8) , 149 বাইট

a->{int[]c={0,0,0,0,0};for(String g:a){if(g=="P")c[0]+=1;if(g=="N")c[1]+=5;if(g=="D")c[2]+=10;if(g=="Q")c[3]+=25;}c[4]=c[0]+c[1]+c[2]+c[3];return c;}

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

Comments

144 বাইট

— সিলিংক্যাট

Answer 24

রেটিনা , 50 বাইট

P
P_
N
N5*
D
D10*
Q
Q25*
^
PNDQ_
O`.
(.)(\1*)
$.2¶

এটি অনলাইন চেষ্টা করুন! ডি, এন, পি, কিউ, অর্ডারে আউটপুট। ব্যাখ্যা:

P
P_
N
N5*
D
D10*
Q
Q25*

_প্রতিটি মুদ্রার মান অনুসারে সন্নিবেশ করে মোট গণনা করুন ।

^
PNDQ_

প্রতিটি চরিত্রের একটি অতিরিক্ত অনুলিপি সন্নিবেশ করান যাতে মিলের জন্য প্রত্যেকের মধ্যে কমপক্ষে একটি থাকে।

O`.

অক্ষরগুলিকে ক্রম অনুসারে বাছাই করুন।

(.)(\1*)
$.2¶

প্রথমটির পরে প্রতিটি চরিত্রের সংখ্যা গণনা করুন।

Answer 25

স্মাইলব্যাসিক, 70 বাইট

INPUT C$P=N+D+Q
WHILE""<C$INC VAR(POP(C$))WEND?P,N,D,Q,P+N*5+D*10+Q*25

উদাহরণ:

? PNDNDNDQP
2   3   3   1   72

ব্যাখ্যা:

INPUT COINS$
P=N+D+Q 'create variables
WHILE COINS$>"" 'loop until the coin list is empty
 'pop a character from the coin list
 'and increment the variable with that name
 INC VAR(POP(COINS$))
WEND
PRINT P,N,D,Q,P+N*5+D*10+Q*25

Answer 26

সি, 149 বাইট

f(char*s){int a[81]={},b[]={1,5,10,25},c=0;char*t,*v="PNDQ";for(t=s;*t;a[*t++]++);for(t=v;*t;printf("%d,",a[*t++]))c+=a[*t]*b[t-v];printf("%d\n",c);}

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

সি এর সাথে সহযোগী অ্যারে নেই, তাই আমি এটিকে নকল করব (খুব অদক্ষভাবে, মেমরি-ভিত্তিক!) এবং তারপরে আবার মুদ্রাগুলি যুক্ত করার জন্য লুপিং অ্যারে দিয়ে লুপ করব। এটি বিদেশী মুদ্রা গণনা করবে না, যদিও :-)

Comments

133 বাইট

— সিলিংক্যাট