তাদের গলি সংখ্যা

Question

ইনপুট:

পূর্ণসংখ্যার একটি তালিকা

আউটপুট:

প্রতিটি অঙ্ক (এবং বিয়োগ চিহ্ন) -0123456789কোনও নকল অঙ্ক উপেক্ষা করে তার নিজস্ব গলিতে রাখুন ।

উদাহরণ:

ইনপুট: [1,729,4728510,-3832,748129321,89842,-938744,0,11111]

আউটপুট:

-0123456789  <- Added as clarification only, it's not part of the output

  1         
   2    7 9
 012 45 78 
-  23    8 
  1234  789
   2 4   89
-   34  789
 0         
  1        

চ্যালেঞ্জ বিধি:

• সংখ্যার কোনও সদৃশ অঙ্ক উপেক্ষা করা হয়।
• আই / ও যে কোনও যুক্তিসঙ্গত বিন্যাসে থাকতে পারে। ইনপুট স্ট্রিং বা অক্ষর-অ্যারের তালিকা / অ্যারে হিসাবে হতে পারে। আউটপুট স্ট্রিং, অক্ষর, অক্ষর-ম্যাট্রিক্স ইত্যাদির তালিকা হিসাবে হতে পারে Out
• চলার স্থানগুলি alচ্ছিক।
• নতুন-লাইনের শীর্ষস্থানীয় বা পিছনের যেকোন পরিমাণ optionচ্ছিক (তবে লাইনের মধ্যে নয়)।
• ইনপুটটিতে সর্বদা কমপক্ষে একটি পূর্ণসংখ্যা থাকবে
• আপনি অন্তত এ একটি পূর্ণসংখ্যা পরিসীমা সমর্থন করতে হবে -2,147,483,648যদিও 2,147,483,647(32-বিট)।
• ইনপুট-তালিকায় কখনই -0, 00(বা দুটি জিরো বেশি) থাকবে না, বা নেতৃস্থানীয় শূন্যগুলির সাথে পূর্ণসংখ্যার (অর্থাত্ 012) যোগ হবে না।
• আপনি যদি ভাষা নেতিবাচক সংখ্যার (যেমন একটি উপরের ¯) আলাদা আলাদা চিহ্ন ব্যবহার করেন তবে এর পরিবর্তে আপনাকে এটি ব্যবহার করার অনুমতি দেওয়া হবে, যতক্ষণ না এটি সামঞ্জস্য থাকে।
• সংখ্যার মধ্যে স্পেস ডিলিমিটার রাখার অনুমতি রয়েছে (সুতরাং 5 বা 8 ছাড়া একটি লাইন তার - 0 1 2 3 4 6 7 9পরিবর্তে হতে পারে -01234 67 9) যতক্ষণ না এটি সুসংগত হয় (এবং তাই এর মধ্যে -এবং এর মধ্যে একটি স্পেসও থাকা উচিত 0)।

সাধারাইওন রুল:

• এটি কোড-গল্ফ , তাই বাইট জেতে সংক্ষিপ্ত উত্তর।
  কোড-গল্ফ ভাষাগুলি আপনাকে নন-কোডগলফিং ভাষার সাথে উত্তর পোস্ট করতে নিরুৎসাহিত করবেন না। 'যে কোনও' প্রোগ্রামিং ভাষার পক্ষে যতটা সম্ভব সংক্ষিপ্ত উত্তর নিয়ে আসার চেষ্টা করুন।
• স্ট্যান্ডার্ড নিয়মগুলি আপনার উত্তরের জন্য প্রযোজ্য , সুতরাং আপনাকে সঠিক পরামিতি এবং রিটার্ন-টাইপ, সম্পূর্ণ প্রোগ্রাম সহ STDIN / STDOUT, ফাংশন / পদ্ধতি ব্যবহারের অনুমতি দেওয়া হবে। আপনার কল
• ডিফল্ট লুফোলগুলি নিষিদ্ধ।
• যদি সম্ভব হয় তবে আপনার কোডের জন্য একটি পরীক্ষার সাথে একটি লিঙ্ক যুক্ত করুন।
• এছাড়াও, প্রয়োজন হলে একটি ব্যাখ্যা যোগ করুন।

পরীক্ষার কেস:

Input: [1,729,4728510,-3832,748129321,89842,-938744,0,11111]
Output:
  1         
   2    7 9
 012 45 78 
-  23    8 
  1234  789
   2 4   89
-   34  789
 0         
  1        

Input: [4,534,4,4,53,26,71,835044,-3559534,-1027849356,-9,-99,-3459,-3459,-94593,-10234567859]
Output:
      4     
     345    
      4     
      4     
     3 5    
    2   6   
   1     7  
  0  345  8 
 -   345   9
 -0123456789
 -         9
 -         9
 -   345   9
 -   345   9
 -   345   9
 -0123456789

Input: [112,379,-3,409817,239087123,-96,0,895127308,-97140,923,-748]
Output:
  12       
   3    7 9
-  3       
 01 4   789
 0123   789
-      6  9
 0         
  123 5 789
-01  4  7 9
   23     9
-    4  78 

Input: [-15,-14,-13,-12,-11,10,-9,-8,-7,-5,-4,-3,-1,0,9,100,101,102,1103,104,105,106,116,-12345690]
Output:
- 1   5    
- 1  4     
- 1 3      
- 12       
- 1        
-01        
-         9
-        8 
-       7  
-     5    
-    4     
-   3      
- 1        
 0         
          9
 01        
 01        
 012       
 01 3      
 01  4     
 01   5    
 01    6   
  1    6   
-0123456  9

Input: [99,88,77,66,55,44,33,22,11,10,0,0,0,-941]
Output:
          9
         8 
        7  
       6   
      5    
     4     
    3      
   2       
  1        
 01        
 0         
 0         
 0         
- 1  4    9

Comments

আউটপুটে অঙ্কগুলির মধ্যে ফাঁক দেওয়ার অনুমতি দেওয়া হবে?

— শেগি

আমরা কি ¯তার পরিবর্তে উচ্চতর বিয়োগ ব্যবহার করতে পারি -?

— ইউরিয়েল

অনুপস্থিত অঙ্কগুলি এখনও ফাঁকা জায়গায় প্রতিস্থাপন করা হবে, সুতরাং আপনার উদাহরণস্বরূপ, 4 ও 6 এবং 7 এবং 9 এর মধ্যে 3 স্পেস থাকবে: "-0 1 2 3 4 <space> 6 7 <space> 9"(একাধিক স্পেস মন্তব্যগুলিতে ভেঙে পড়বে , কোনও কারণে)

— শেগি

আমি আশা করছিলাম যে আপনার অতীতকে ছিনিয়ে নেবে! : ডি ভাল দাগ!

— শেগি

সম্পর্কিত

— স্ট্রাস্টার

Answer 1

স্ট্যাক্স , 8 বাইট

║V≡u╝─é╢

এটি চালান এবং এটি ডিবাগ করুন

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

আনপ্যাকড, অরগল্ফড এবং মন্তব্য করা হয়েছে, এটি দেখতে এটির মতো দেখাচ্ছে।

m       for each line of input, execute the rest of the program and print the result
 zs     put an empty array under the line of input
 F      for each character code in the line of input, run the rest of the program
  Vd    "0123456789"
  I^    get the index of the character in this string and increment
  _&    assign this character to that index in the original string

এটি চালান

Comments

একটি দৈর্ঘ্যের একটি তালিকা ইনপুট বলতে কী বোঝায়? (এটি যদি কেবল মান বা মান এবং একটি নতুন লাইন হয় তবে এটি কার্যকর হয় না))

— জোনাথন অ্যালান

ওহ হ্যাঁ, ভাল পয়েন্ট। ইনপুটগুলির একটি বিকল্প ফর্ম যা একক মানগুলির জন্যও কাজ করে ["7"]। এই ফর্ম্যাটটি একাধিক মান যেমন পরিচালনা করতে পারে ["34", "43"]।

— পুনরাবৃত্ত

Answer 2

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

কোড:

v'-žh«DyмSð:,

05AB1E এনকোডিং ব্যবহার করে । এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

v               # For each element in the input..
 '-žh«          #   Push -0123456789
      D         #   Duplicate this string
       yм       #   String subtraction with the current element
                    e.g. "-0123456789" "456" м  →  "-0123789"
         Sð:    #   Replace all remaining elements with spaces
                    e.g. "-0123456789" "-0123789" Sð:  →  "     456   "
            ,   #   Pop and print with a newline

Comments

নিস! প্রতিস্থাপনের রুটটি the

— োকানো

@ এমিগানা সন্নিবেশ-রুটটিও একটি খুব আকর্ষণীয় পদ্ধতির। আসলে, আমি মনে করি আপনি এর সাথে 4 বাইট সংরক্ষণ করতে পারবেন vðTúyvyÐd+ǝ},;)।

— আদনান

উজ্জ্বল! আমি জানি না ǝযে এইভাবে কাজ করবে -0। তবে এখন আমি এটি ছুঁড়েছি, এটি আসলে একটি সংখ্যা এবং একটি স্ট্রিং নয় যেমন আমি প্রথম এটি পড়েছিলাম: পি

— এমিগানা

ওওফ ... আমি 23 বাইতে ছিলাম 05AB1E (মানবতার উপর পাং)।

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

Answer 3

হাস্কেল , 51 বাইট

-1 বাইট লাইকোনি ধন্যবাদ ।

f l=[[last$' ':[n|n`elem`i]|n<-"-0123456789"]|i<-l]

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

এই চ্যালেঞ্জটি ডিজিটালিস্ট। ডি:

Comments

"-0123456789"চেয়ে বাইট খাটো '-':['0'..'9']।

— লাইকোনি

Answer 4

জাভাস্ক্রিপ্ট, 59 58 বাইট

স্ট্রিংগুলির অ্যারে হিসাবে ইনপুট এবং আউটপুট।

a=>a.map(x=>`-0123456789`.replace(eval(`/[^${x}]/g`),` `))

---

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

o.innerText=(g=s=>(f=
a=>a.map(x=>`-0123456789`.replace(eval(`/[^${x}]/g`),` `))
)(s.split`,`).join`\n`)(i.value="1,729,4728510,-3832,748129321,89842,-938744,0,11111");oninput=_=>o.innerText=g(i.value)

input{width:100%;}

<input id=i><pre id=o></pre>

---

মূল

স্ট্রিংগুলির অ্যারে হিসাবে ইনপুট নেয় এবং অক্ষরের অ্যারের আউটপুট দেয়

a=>a.map(x=>[...`-0123456789`].map(y=>-~x.search(y)?y:` `))

o.innerText=(g=s=>(f=
a=>a.map(x=>[...`-0123456789`].map(y=>-~x.search(y)?y:` `))
)(s.split`,`).map(x=>x.join``).join`\n`)(i.value="1,729,4728510,-3832,748129321,89842,-938744,0,11111");oninput=_=>o.innerText=g(i.value)

input{width:100%;}

<input id=i><pre id=o></pre>

Comments

যেমন একটি মার্জিত সমাধান, আমি সত্যিই এটি পছন্দ।

— ব্রায়ান এইচ।

Answer 5

এপিএল (ডায়ালগ) , 32 12 বাইট

২৮ বাইট @ অ্যাডম এবং @ জিএনএকে ধন্যবাদ সংরক্ষণ করেছে

⊃¨⎕∘.∩'¯',⎕d

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

Comments

একই ধারণা, 15: {' '@(~∊∘⍵)'¯',⎕D}¨। স্পষ্টতই -তুচ্ছ পরিবর্তনও নিতে পারে ।

— অ্যাডম

{⊃¨⍵∘.∩'¯',⎕d}

— ngn

বা এমনকি⊃¨⎕∘.∩'¯',⎕d

— ngn

Answer 6

05 এ বি 1 ই , 17 13 বাইট

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

vðTúyvyÐd+ǝ},

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

ব্যাখ্যা

v               # loop over elements y in input
 ðTú            # push a space prepended by 10 spaces
    yv          # for each element y in the outer y
      y         # push y
       Ðd+      # push y+isdigit(y)
          ǝ     # insert y at this position in the space-string
           }    # end inner loop
            ,   # print

Answer 7

রুবি , 42 বাইট

নামবিহীন ল্যাম্বদা সংখ্যার অ্যারে প্রসেসিং করছে:

->a{a.map{|n|"-0123456789".tr"^#{n}",?\s}}

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

বিকল্পভাবে, একটি সম্পূর্ণ পার্ল-এর মতো সম্পূর্ণ প্রোগ্রামটি আরও খাটো। আমি বলতে চাই যে -plএই প্রসঙ্গে সুইচগুলি বেশ মজাদার দেখাচ্ছে:

রুবি -pl , 29 বাইট

$_="-0123456789".tr"^#$_"," "

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

অবশেষে, নিম্নলিখিতটি যদি সম্ভব হয় যদি আউটপুট স্ট্রিংগুলি উদ্ধৃত করার জন্য গ্রহণযোগ্য হয়:

রুবি -n , 27 বাইট

p"-0123456789".tr ?^+$_,?\s

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

Answer 8

জাভাস্ক্রিপ্ট (নোড.জেএস) , 60 বাইট

• যোগদানটি হ্রাস করার জন্য @ অ্যান্ড্রু টেলরকে ধন্যবাদ (8 টি)
• X.match এর জন্য @ ইয়ার র্যান্ডকে ধন্যবাদ (8 টি অক্ষর)

a=>a.map(X=>"-0123456789".replace(/./g,x=>X.match(x)?x:" "))

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

Comments

ওহ, সেই joinকৌশলটি দুর্দান্ত - তবে প্রশ্নটি পড়ছে যে অ্যারের মতো একটি অ্যারে ঠিক আছে আউটপুট তাই সম্ভবত আপনি এটি 8 টি সরিয়ে মুছে ফেলতে পারবেন?

— অ্যান্ড্রু টেলর

চমত্কার নিশ্চিত আপনি প্রতিস্থাপন দ্বারা অন্য সঞ্চয় করতে পারেন (X+"").includes(x)সঙ্গেRegExp(x).test(X)

— অ্যান্ড্রু টেলর

(X+"").match(x)আরও খাটো হবে। প্রশ্নটি ইনপুটটিকেও স্ট্রিংগুলির একটি অ্যারে হতে দেয়, তাই এটি এমনকি হতে পারে X.match(x)।

— ইয়ার র্যান্ড

Answer 9

জাপট , 16 বাইট

স্ট্রিংগুলির অ্যারে হিসাবে ইনপুট এবং আউটপুট।

£Ao ¬i- ®iS gXøZ

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

---

ব্যাখ্যা

£                    :Map over each element X
 Ao                  :  Range [0,10)
    ¬                :  Join to a string
     i-              :  Prepend "-"
        ®            :  Map over each character Z
         iS          :    Prepend a space
            g        :    Get the character at index
             XøZ     :      X contains Z? (true=1, false=0)

Answer 10

পাইথন 3 , 77 64 বাইট

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

lambda x:[[[" ",z][z in str(y)]for z in"-0123456789"]for y in x]

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

পাইথনে গল্ফ করার আমার প্রথম যথাযথ প্রচেষ্টা। পরামর্শ স্বাগত!

2D বর্ণের অ্যারে প্রদান করে।

Comments

আপনি তার '-0123456789'পরিবর্তে ব্যবহার করতে পারেন range(10)এবং প্রথম ব্লকটি ড্রপ করে এটার str(z)সাথে অদলবদল zকরতে পারেন, আপনি পাইথন 2 এ স্যুইচ করতে পারেন এবং এর `y`পরিবর্তে str(y)( ``++ এর সমতুল্য repr) ব্যবহার করতে পারেন

— রড

অতিমাত্রায় স্থান in "-।

— জোনাথন ফ্রেচ

Answer 11

পার্ল 5 -pl , 33 বাইট

$_=eval"'-0123456789'=~y/$_/ /cr"

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

লাইন পৃথক হিসাবে ইনপুট লাগে।

Answer 12

হাস্কেল , 47 বাইট

map(\s->do d<-"-0123456789";max" "[d|elem d s])

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

maxকোনও স্থান কোনও সংখ্যার বা বিয়োগ চিহ্নের চেয়ে ছোট হওয়ায় একটি উপাদান সন্নিবেশ করানোর জন্য ব্যবহার করে no

যদি চলমান জায়গাগুলির একটি অযৌক্তিক সংখ্যা ঠিক থাকে তবে দুটি বাইট সংরক্ষণ করা যায়:

45 বাইট

map(\s->do d<-'-':['0'..];max" "[d|elem d s])

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

Answer 13

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

"45KY2ht@gm*c

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

ব্যাখ্যা

         % Implicit input: cell array of strings, for example {'1','729',...,'11111'}
"        % For each cell
  45     %   Push 45 (ASCII code of '-')
  KY2    %   Push predefined literal '0123456789'
  h      %   Concatenate horizontally: gives '-0123456789'
  t      %   Duplicate
  @      %   Push current cell, for example {'729'}
  g      %   Convert cell to matrix. This effectively gives the cell's contents, '729'
  m      %   Ismember: gives an array of zeros and ones indicating membership of each
         %   char from '-0123456789' in '729'. The result in the example is
         %   [0 0 0 1 0 0 0 0 1 0 1]
  *      %   Multiply, element-wise. Chars are implicity converted to ASCII 
         %   Gives the array [0 0 0 50 0 0 0 0 55 0 57] 
  c      %   Convert ASCII codes to chars. 0 is displayed as space. Gives the string
         %   '   2    7 9'
         % Implicit end
         % Implicilly display each string on a different line

Answer 14

জে , 32 27 বাইট

-5 বাইট ধন্যবাদ ফ্রাউনফ্রোগের জন্য!

10|.":(10<."."0@[)}11$' '"0

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

আসল সমাধান:

জে , 32 বাইট

(('_0123456789'i.[)}11$' '"0)@":

ব্যাখ্যা:

@": অক্ষর রূপান্তর এবং

}11$' '"0 এই অক্ষরগুলিতে 11 স্পেসের অ্যারের সামগ্রী পরিবর্তন করুন

'_0123456789'i.[ এই তালিকার অক্ষরগুলির সূচকগুলি দ্বারা চিহ্নিত স্থানে

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

Comments

10|.":(10<."."0@[)}11$' '"0

— ফ্রাউনফ্রোগ 11

নিখুঁত সমাধান, ধন্যবাদ!

— গ্যালেন ইভানভ

Answer 15

গুগল শিটস , 124 বাইট

=Transpose(ArrayFormula(If(IsError(Find(Mid("-0123456789",Row($1:$11),1),Split(A1,",")))," ",Mid("-0123456789",Row($1:$11),1

ইনপুটটি কক্ষে কমা দ্বারা বিযুক্ত তালিকা A1। আউটপুট এমন সীমার মধ্যে B1:L?যেখানে ?অনেকগুলি প্রবেশের ইনপুট ছিল। (আপনি যেখানে খুশি সূত্রটি রাখতে পারেন, আমি কেবল B1সুবিধার জন্য বেছে নিয়েছি )) দ্রষ্টব্য যে শিটগুলি সূত্রের শেষে স্বয়ংক্রিয়ভাবে চারটি বন্ধ বন্ধনী যুক্ত করবে, আমাদের সেই চারটি বাইট সংরক্ষণ করবে।

আরেকটি পরীক্ষার মামলা এবং আরেকটি পরীক্ষার মামলা

ব্যাখ্যা:

• Mid("-0123456789",Row($1:$11),1) ঘুরতে 11 টি অক্ষরের প্রত্যেকটিকে বাছাই করে।
• Find(Mid(~),Split(A1,","))প্রতিটি ইনপুট উপাদানগুলিতে সেই অক্ষরগুলির সন্ধান করে। এটি হয় একটি সংখ্যাসূচক মান প্রদান করে বা এটি না পাওয়া গেলে একটি ত্রুটি।
• If(IsError(Find(~)," ",Mid(~))চরিত্রটি না পাওয়া গেলে বা চরিত্রটি না থাকলে একটি স্থান ফিরে আসবে। (আমি আশা করি Mid(~)অংশটি নকল করা এড়ানোর কোনও উপায় ছিল তবে আমি তার একটিও জানি না))
• ArrayFormula(If(~))মাল্টি-সেল রেফারেন্সগুলিকে কাজ করে Mid(~)এবং এটাই করে Find(~)। এটি একক একক কোষে একটি কক্ষের ফেরতের মানগুলিতে একটি সূত্র তৈরি করে।
• Transpose(ArrayFormula(~)) ফিরে আসা অ্যারে স্থানান্তর করুন কারণ এটি পাশের পথ থেকে শুরু হয়।

Answer 16

জেলি , 12 বাইট

ØD”-;¹⁶e?€Ʋ€

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

-2 জনাথন অ্যালানকে এমন একটি নিয়ম পড়ার জন্য ধন্যবাদ যা আমি করি নি।

নোট করুন যে টিআইও লিঙ্কে ব্যবহৃত আই / ও ফর্ম্যাটটি আসলটি নয়, যা স্ট্রিং প্রতিনিধিত্বের তালিকা এবং আউটপুটকে লাইনগুলির তালিকা হিসাবে ইনপুট।

Answer 17

পার্ল 6 , 35 বাইট

{.map:{map {m/$^a/||' '},'-',|^10}}

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

আউটপুট হ'ল একটি চরিত্রের ম্যাট্রিক্স যা উভয়ই রেগেজ ম্যাচ বা স্পেস অক্ষর ধারণ করে।

Comments

যদি 'ইনপুট কোনও যুক্তিসঙ্গত বিন্যাসে থাকতে পারে' -peস্টিডিন হতে পারে, তবে সম্ভবত প্রাথমিক প্রাথমিক মানচিত্র, ধনুর্বন্ধনী এবং অদলবদল $^aকরতে পারবেন$_

— ফিল এইচ

ফিল্ড -pএবং -nকোনওভাবে বগি মনে হচ্ছে, কমপক্ষে টিআইও-তে। কোনও কারণে $_ব্লকগুলিতে পাস করা হয়নি। উদাহরণ 1 দেখুন , উদাহরণ 2 ।

— nwellnhof

Answer 18

জাভা 8, 53 বাইট

a->a.map(i->"-0123456789".replaceAll("[^"+i+"]"," "))

আমার নিজের চ্যালেঞ্জটি আমি যখন এটি তৈরি করার সময় ভেবেছিলাম তার চেয়ে সহজ ...

ইনপুট এবং আউটপুট উভয় হিসাবে java.util.stream.Stream<String> ।

ব্যাখ্যা:

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

a->                              // Method with String-Stream as both input and return-type
  a.map(i->                      //  For every String in the input:
    "-0123456789"                //   Replace it with "-0123456789",
    .replaceAll("[^"+i+"]"," ")) //   with every character not in `i` replaced with a space

Answer 19

সি (জিসিসি) , 159 বাইট

f(A,l,j,k,b)long*A,k;{char*s,S[99];for(j=~0;++j<l;puts(""))for(sprintf(S,"%ld",k=A[j]),putchar(k<0?45:32),k=47;++k<58;putchar(b?32:k))for(b=s=S;*s;b*=*s++-k);}

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

Answer 20

আর , 96 75 বাইট

for(i in scan())cat(paste(gsub(paste0("[^",i,"]")," ","-0123456789"),"\n"))

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

কেভিন ক্রুইজসেনকে এই রেজেেক্স পদ্ধতির পরামর্শ দেওয়ার জন্য ধন্যবাদ!

হোয়াইটস্পেস পৃথক পৃথক পূর্ণসংখ্যার হিসাবে স্টিডিন থেকে ইনপুট নেয় এবং অ্যাস্কি-আর্ট স্টাডাউটে প্রিন্ট করে।

Comments

আমি আর খুব ভাল জানি না, তাই আমি নিশ্চিত এটি আরও golfed যেতে পারে, কিন্তু এই ভিন্ন পদ্ধতি 12 খাটো বাইট: function(N)for(i in N)cat(paste(gsub(paste("[^","]",sep=i)," ","-0123456789"),"\n"))। (পূর্ণসংখ্যার-অ্যারের পরিবর্তে স্ট্রিং-অ্যারে হিসাবে ইনপুট দিন)) এটি অনলাইনে চেষ্টা করুন।

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

@ কেভিন ক্রুজসেন আহ, সুন্দর, হ্যাঁ, আমি এটিকেও গল্ফ করতে পারি।

— জিউসেপ্পে

Answer 21

এসওজিএল ভি0.12 , 14 13 বাইট

{ø,{²²⁴WI1ž}P

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

ব্যাখ্যা:

{ø,{²²⁴WI1ž}P

{            repeat input times
 ø,            push an empty string and the next input above that
   {       }   for each character in the input
    ²²           push "0123456789"
      ⁴          copy the character on top
       W         and get it's index in that string (1-indexed, 0 for the non-existent "-")
        I        increment that (SOGL is 1-indexed, so this is required)
         1ž      at coordinates (index; 1) in the string pushed earlier, insert that original copy of the character
            P  print the current line

Answer 22

SNOBOL4 (CSNOBOL4) , 85 বাইট

I	X =INPUT	:F(END)
	S ='-0123456789'
R	S NOTANY(X ' ') =' '	:S(R)
	OUTPUT =S	:(I)
END

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

I	X =INPUT	:F(END)		;* read input, if none, goto end
	S ='-0123456789'		;* set the string
R	S NOTANY(X ' ') =' '	:S(R)	;* replace characters of S not in X + space with space
	OUTPUT =S	:(I)		;* print S, goto I
END

Answer 23

পাইথ, 14 বাইট

VQm*d}dNs+\-UT

স্ট্রিংয়ের তালিকা হিসাবে ইনপুট নেয় এবং প্রতিটি লাইনের জন্য স্ট্রিংয়ের তালিকা আউটপুট করে।
এখানে চেষ্টা করুন

ব্যাখ্যা

VQm*d}dNs+\-UT
VQ                For each string in the input...
  m     s+\-UT    ... and each character in "-0123456789"...
     }dN          ... check if the character is in the string...
   *d             ... and get that character or an empty string.

Answer 24

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

%"-0123456789"~`.+
[^$&]¶ 

এটি অনলাইন চেষ্টা করুন! দ্রষ্টব্য: ট্রেলিং স্পেস ব্যাখ্যা: ইনপুট প্রতিটি লাইনের জন্য একবার %তার শিশু পর্যায়ে সঞ্চালিত ~। ~প্রথমে তার চাইল্ড স্টেজটি কার্যকর করে, যা লাইনটি গুটিয়ে রাখে [^এবং ]<CR><SP>এমন একটি প্রোগ্রাম তৈরি করে যা ফাঁকে ফাঁকে ফাঁকে না রেখে অক্ষরে প্রতিস্থাপন করে। "-0123456789"নির্দিষ্ট করে যে প্রোগ্রাম ইনপুট দেয়া স্ট্রিং ( $বদল অনুমতি দেওয়া হয় কিন্তু আমি তাদের প্রয়োজন হবে না)।

Answer 25

পার্ল 5 -n , 30 বাইট

-প্রথম অবস্থানে ছাড়া অন্য কোথাও উপস্থিত হতে পারলে কাজ করবে না

#!/usr/bin/perl -n
say"-0123456789"=~s/[^$_]/ /gr

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

Comments

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

— এরিক দি আউটগল্ফার

Answer 26

লাল , 94 বাইট

func[b][foreach a b[s: copy"           "foreach c a[s/(index? find"-0123456789"c): c]print s]]

স্ট্রিংগুলির ব্লক হিসাবে ইনপুট নেয়

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

Answer 27

সিজোম , 20 বাইট

qS%{'-10,+s_@-SerN}/

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

সংখ্যার স্থান পৃথকীকরণ তালিকা হিসাবে ইনপুট গ্রহণ করে। @ অ্যাডানান্স উত্তর হিসাবে খুব একই পন্থা।

Answer 28

সি (জিসিসি) , 95 94 বাইট

c,d;f(l,n)char**l;{for(;n--;l++)for(c=0;c<12;)putchar(strchr(*l,d=c++?c+46:45)?d:d^58?32:10);}

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

স্ট্রিংগুলির তালিকা আকারে ইনপুট। STDOUT এ আউটপুট।

Comments

আপনি সরিয়ে গলফ একটি বাইট করতে পারেন c++, এবং পরিবর্তন d=c?c+47:করার d=c++?c+46:।

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

Answer 29

কে 4 , 30 27 বাইট

সমাধান:

{?[a in$x;a:"-",.Q.n;" "]}'

উদাহরণ:

q)k){?[a in$x;a:"-",.Q.n;" "]}'1 729 4728510 -3832 748129321 89842 -938744 0 11111
"  1        "
"   2    7 9"
" 012 45 78 "
"-  23    8 "
"  1234  789"
"   2 4   89"
"-   34  789"
" 0         "
"  1        "

ব্যাখ্যা:

ইনপুটটির উপর ভিত্তি করে "-0123 ..." বা "" প্রদান করুন। ডান থেকে বামে ব্যাখ্যা করা। এপিএল উত্তরের জন্য কোনও প্রতিযোগিতা নেই :(

{?[a in$x;a:"-",.Q.n;" "]}' / the solution
{                        }' / lambda for each
 ?[      ;          ;   ]   / if[cond;true;false]
                .Q.n        / string "0123456789"
            "-",            / join with "-"
          a:                / save as a
       $x                   / convert input to string
   a in                     / return boolean list where each a in x
                     " "    / whitespace (return when false)

Answer 30

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

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

n←11⍴' '⋄n['-0123456789'⍳s]←s←⎕⋄n