দ্য রেন নম্বর


38

চ্যাম্পেরাউন ধ্রুবকটি এমন একটি সংখ্যা যা অনন্তের দিকে ঝোঁক nদিয়ে প্রথম সংখ্যাগুলি nসংক্ষেপ করে তৈরি করা হয়। এটি দেখতে এমন কিছু দেখাচ্ছে:

0.123456789101112131415161718192021222324252627282930...

এখন, আমি আপনাকে রিন নম্বরটি বর্ণনা করব । এটি পূর্ণসংখ্যার হিসাবে চ্যাম্পারনউন ধ্রুবককে ছোট করার হিসাবে ভাবা যেতে পারে। আমি প্রথম অঙ্কগুলি রি ( এন ) হিসাবে রেইন নম্বরটি উল্লেখ করব । এটি এইভাবে তৈরি করা যায়:n

  1. প্রথম nপ্রাকৃতিক সংখ্যা (অনুক্রম {1,2,3, ...}) সংক্ষিপ্ত হয়।
  2. এই ফলাফলটি পরে অঙ্কের মান অনুসারে বাছাই করা হয়। তাই দেখতে 1..12হবে 011111223456789
  3. যেহেতু রিন সংখ্যাটিতে নেতৃত্বের শূন্যগুলি না থাকতে পারে, 0তাই আমরা সমস্তগুলি সরিয়ে নিয়েছি যাতে তারা তাৎপর্যপূর্ণ হয়, যদিও সংখ্যাটি কম রাখা হয়, ফলস্বরূপ, বলে 101111223456789,। এটি রি ( এন ), এই ক্ষেত্রে, রি (12)।

রি ( এন ) এর জন্য এখানে কিছু ফলাফল রয়েছে :

এন     রি ( এন )
1 1
2 12
3 123
7 1234567
9 123456789
10 10123456789
15 101111111223344556789
34 100011111111111112222222222223333333334444555666777888999
42 1000011111111111111222222222222222333333333333444444455556666777788889999
45 100001111111111111122222222222222233333333333334444444444555556666777788889999
55 10000011111111111111122222222222222333333333333344444444444444445555555555566666777778888899999
100 1000000000001111111111111111111112222222222222222223333333333333334444444444444444455555555555555555566666666666666666666777777777777788888888888888999999999999
999100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999

উদ্দেশ্যn ইনপুট হিসাবে একটি নম্বর 1 ≤ <10000 দেওয়া (আর্গুমেন্ট, এসটিডিএন বা হার্ডকোডিংয়ের মাধ্যমে যদি আপনার ভাষা প্রচলিত ইনপুট সমর্থন করে না), আউটপুট / রিট রি ( n)।

এটি একটি , তাই বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী। আপনি এই ভাষা প্রতিযোগিতার পরে তৈরি হওয়া ভাষা ব্যবহার করতে পারেন, যতক্ষণ না এই চ্যালেঞ্জটির জবাব দেওয়ার জন্য তৈরি করা হয়নি। (অবশ্যই, আপনি এটি ব্যবহার করতে পারেন, যদি এটি একটি আকর্ষণীয় সমাধান সরবরাহ করে তবে আপনার উত্তরটিকে প্রতিদ্বন্দ্বী হিসাবে চিহ্নিত করুন))

রেফারেন্স বাস্তবায়ন

আমি এটি পরীক্ষা করেছিলাম, তাই আসলেই কোনও সমস্যা হওয়া উচিত নয়। যদি হয় একটি সমস্যা, একটি সহজ সমাধান আছে: একটি বিবেকী ব্রাউজার পান।

function min(n) {
  var seq = [];
  for(var i = 1; i <= n; i++) seq.push(i);
  seq = seq.join("").split("").map(Number);
  var to;
  if(seq.indexOf(1) >= 0) to = seq.splice(seq.indexOf(1), 1);
  seq.sort(function(a, b) {
    return a - b;
  });
  if(to) seq = to.concat(seq);
  return seq.join("");
}
t.onchange = t.onkeyup = function() {
  h.innerHTML = min(this.value)
}
* {
  font-family: Consolas, monospace;
}
input {
  border: 2px dotted #aaaaaa;
  border-radius: 5px;
  margin: 10px;
}
<input id="t" type="number">
<div id="h">


লিডারবোর্ড

এই পোস্টের নীচে স্ট্যাক স্নিপেট উত্তরগুলি থেকে ক্যাটালগ তৈরি করে a) ভাষার প্রতি সংক্ষিপ্ত সমাধানের তালিকা হিসাবে এবং খ) সামগ্রিক লিডারবোর্ড হিসাবে।

আপনার উত্তরটি প্রদর্শিত হয়েছে তা নিশ্চিত করতে, দয়া করে নীচের মার্কডাউন টেমপ্লেটটি ব্যবহার করে আপনার উত্তরটি শিরোনাম দিয়ে শুরু করুন:

## Language Name, N bytes

Nআপনার জমা দেওয়ার আকারটি কোথায় ? আপনি যদি নিজের স্কোরটি উন্নত করেন তবে আপনি পুরানো স্কোরগুলি শিরোনামে রেখে দিতে পারেন । এই ক্ষেত্রে:

## Ruby, <s>104</s> <s>101</s> 96 bytes

যদি আপনি নিজের শিরোনামে একাধিক সংখ্যা অন্তর্ভুক্ত করতে চান (যেমন আপনার স্কোর দুটি ফাইলের সমষ্টি বা আপনি পৃথকভাবে দোভাষী পতাকা দণ্ডের তালিকা করতে চান), নিশ্চিত করুন যে আসল স্কোরটি শিরোনামের শেষ সংখ্যা:

## Perl, 43 + 2 (-p flag) = 45 bytes

আপনি ভাষাটির নামটিকে একটি লিঙ্কও তৈরি করতে পারেন যা স্নিপেটে প্রদর্শিত হবে:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes


22
আমি সবসময় চিন্তা 0হয় rien সংখ্যা।
flawr

আমি কিছু মিস করছি কিনা তা নিশ্চিত নই, তবে আমরা কেবল 1এস এর সামনে একটি 0গুলি সরিয়ে দিতে পারি, হ্যাঁ?
FryAmTheEggman

নিবন্ধন করুন
কনর ও'ব্রায়ান

@ মার্টিনব্যাটনার \ o / আপনি এটি খুঁজে পেয়েছেন।
কনর ওব্রায়ান

@ CᴏɴᴏʀO'Bʀɪᴇɴ হউক না যে এটির চেয়ে আলাদা ছিল। এই এক শুধুমাত্র তাদের সম্পূর্ণ অঙ্কের অনুমতি দেয় না তাদের পৃথক অঙ্ক।
মার্টিন এন্ডার

উত্তর:


12

পাইথ, ৮

+1SjktSQ

একটি তালিকা তৈরি করে [1, .. , input]তারপরে শীর্ষস্থানীয়টিকে সরিয়ে দেয়, যোগদান করে এবং বাছাই করে, তারপরে একটি 1 সংশোধন করে।

পরীক্ষা স্যুট


13

পার্ল, 44 42 41 33 31 বাইট

ইয়া, প্রথম পোস্ট!

2 টি বাইট সংরক্ষণের জন্য প্রিমোকে ধন্যবাদ।

print 1,sort"@{[2..<>]}"=~/\d/g

অন্যরা যেমন করেছিল, 1 টি সরানো এবং ম্যানুয়ালি এটিকে প্রম্পেন্ড করা কাজটি করে।

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


2
পিপিসিজিতে আপনাকে স্বাগতম, এবং আপনার প্রথম পোস্টে অভিনন্দন (যদিও আমি আপনাকে স্বাগত জানাই অদ্ভুত মনে হচ্ছে, যেহেতু আমার আগে আপনি যোগদানের আগে ...)। দুটি জিনিস - আমি 43 বাইট গণনা করি ... দ্বিতীয়ত, আপনার "অনলাইনে এটি চেষ্টা করুন" লিঙ্কটি আপনার কোডটির একটি পুরানো / ভিন্ন সংশোধনীতে নির্দেশ করে to আইডিয়নে আপনার কোডটিকে ম্যানুয়ালি অনুলিপি-পেষ্ট করা কাজ করে তবে আপনার লিঙ্কটি নয়।
অ্যাডমবর্কবার্ক

তোমার মন্তব্যের জন্য ধন্যবাদ ! আমি বাইট গণনার জন্য টেক্সট র্যাংলগারটি ব্যবহার করেছি, অনুমান আমি খুব বেশি 1 পেয়ে গেছি ... (প্লাস কোনও জায়গার প্রয়োজন ছিল না, ফলে পুরো বাইকোয়েন্টটি 42 এ কমিয়ে দেওয়া হয়)। আইডিয়নের এখনই ঠিক করা উচিত।
পল পিকার্ড

ওহ, সে সম্পর্কে জানতাম না। এছাড়াও আমার ম্যাকের আমার পার্লে কাজ করে (5.18) ধন্যবাদ!
পল পিকার্ড


2
বিভাজন / যোগদানের হাত থেকে মুক্তি পেয়ে দুটি বাইট সংরক্ষণ করেছেন:print 1,sort"@{[2..<>]}"=~/\d/g
প্রিমো

11

জাপট, 14 12 বাইট

1+2o°U ¬¬n ¬

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

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

1+2o°U ¬¬n ¬  // Implicit: U = input integer
  2o°U        // Generate the range of integers from 2 to U, inclusive.
       ¬¬     // Join, then split into chars.
         n    // Sort.
1+         ¬  // Join again, and add a 1 to the beginning.
              // Implicit: output last expression

4
o_o আপনি 5 মিনিটের অনুগ্রহকালীন সময়ে গল্ফ করেছিলেন? পশ্চিম দিকের দ্রুততম বন্দুক
কনর ও'ব্রায়ান

@ সিও'বিʀɪᴇɴ আমি অনুমান করছি যে এর পরে আপনি নতুন কোড গল্ফ পোস্ট করতে চান না: ডি
পিয়ের আরলাড

9

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

কিছু নতুন রেটিনা বৈশিষ্ট্য দেখানোর সময় (এটি এখনও খুব বেশি প্রতিযোগিতামূলক নয়, তবে আজকের আগে এটি সম্ভবত 300 বাইটের কাছাকাছি হত)।

.+
$0$*1
\B
 $`
(1)+
$#1
^1| 

.
 1$0$*1
+r`(1+\2) (1+)\b
$2 $1
 1(1)*
$#1
^
1

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

ব্যাখ্যা

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

.+
$0$*1

আসুন ইনপুটটি আনারিতে রূপান্তর করে শুরু করি। এটি ইনপুটটির সাথে মিল রেখে এবং তারপরে $*1যা 1বহুবার পুনরাবৃত্তি করে তা ব্যবহার করে (এই পুনরাবৃত্তি বৈশিষ্ট্যটি আজকাল নতুন)

\B
 $`

এর পরে, আমরা থেকে একটি সীমার উৎপন্ন 1করার Nইউনারী হবে। আমি ব্যাখ্যা করেছি কেন এটি আমার ফিজবজ উত্তরে কাজ করে

(1)+
$#1

আমরা প্রতিটি সংখ্যাকে দশমিক দশকে ফিরিয়ে আনি যাতে আমরা দশমিক সংখ্যার সাথে কাজ করতে পারি। এটি প্রতিটি আনারি সংখ্যার সাথে মিল রেখে এমন করা হয় যাতে প্রতিটি 1পৃথক ক্যাপচার তৈরি করে। তারপরে আমরা নতুন ক্যাপচার কাউন্ট সিনট্যাক্স ব্যবহার করে গ্রুপের ক্যাপচারের সংখ্যার সাথে এটি প্রতিস্থাপন করব $#1

^1| 

এটি 1স্ট্রিং থেকে নেতৃস্থানীয় পাশাপাশি সমস্ত স্পেস সরিয়ে দেয় যাতে আমাদের কেবলমাত্র অঙ্কগুলি থাকে (একক ব্যতীত 1)।

.
 1$0$*1

আমরা আনারিতে ফিরে রূপান্তর করি এবং 1প্রতিটি সংখ্যায় যুক্ত করি ( এটিও নিশ্চিত যে 0এটি একটি শূন্য নয়)। তারা পৃথক হয়েছে কিনা তা নিশ্চিত করতে আমরা প্রতিটি অঙ্কের সামনে একটি স্থান সন্নিবেশ করি।

+r`(1+\2) (1+)\b
$2 $1

আমরা বারবার একটি বৃহত সংখ্যার পূর্বে একটি ছোট সংখ্যার সাথে মেলে এবং তাদের অদলবদল করি। এটি রেটিনার বুদ্বুদ সাজান। :)

 1(1)*
$#1

Aaaand দশমিক ফিরে।

^
1

অবশেষে, আমরা 1আগে সরিয়েছি এমনটির জন্য অ্যাকাউন্টের জন্য সামনে একটি একক সন্নিবেশ করি।


1
আপনি কোন নতুন বৈশিষ্ট্যের কথা বলছেন?
কনর ওব্রায়ান

1
@ CᴏɴᴏʀO'Bʀɪᴇɴ আমি পরে একটি ব্যাখ্যা যুক্ত করব। ক্যাপচারগুলি গণনা করতে এবং পুনরাবৃত্তি করতে অক্ষরগুলি যথাযথভাবে সংক্ষিপ্ত দশমিক / অ্যানারি রূপান্তরকরণের জন্য ব্যবহার করা যেতে পারে যার জন্য এটি একটি নতুন প্রতিস্থাপন সিনট্যাক্স ব্যবহার করে। এখানে সম্পূর্ণ পরিবর্তন: github.com/mbuettner/retina/blob/master/CHANGELOG.md
মার্টিন এন্ডার

@ মার্টিনব্যাটার ভাল লাগছে এর অর্থ কি রেটিনা আর এই ছাড়ের দাবি করতে পারে না ?
ডিজিটাল ট্রমা

@ ডিজিটাল ট্রামুমা আমি মনে করি এটি এখনও ইনপুটটির সবচেয়ে প্রাকৃতিক রূপ। এছাড়াও আমি কখনই বুঝতে পারি না যে এই জাতীয় ভাষা-ভাষা কীভাবে এই সাইটে এতটা সমর্থন পেয়েছিল।
মার্টিন এন্ডার

6

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

import Data.List
f n='1':sort(show=<<[2..n])

দুর্ভাগ্যক্রমে sortএটি Data.List17 বাইট!


6

জাভাস্ক্রিপ্ট (ES6), 65 62 54 52 বাইট

Edc65 ধন্যবাদ 3 বাইট সংরক্ষণ করা

x=>eval("for(b='';x>1;)1+[...b+=x--].sort().join``")

2 থেকে সমস্ত সংখ্যার একটি স্ট্রিং তৈরি করে x, তারপরে বিভক্ত হয়, বাছাই হয়, যোগ দেয় এবং শুরুতে 1 যোগ করে। এটি এখনও গল্ফযোগ্য হতে পারে; পরামর্শ স্বাগত!


আমার হাতে ES6 নেই, তবে আপনি কেবল (নতুন) ব্যবহার করতে পারবেন না Array(x-1).map((_,y)=>y+2)?
কনর ও'ব্রায়ান

@ সিও'বিʀɪᴇɴ মানচিত্র খালি অ্যারে উপাদানগুলি এড়িয়ে যান, সুতরাং আপনার ব্যবহার করা উচিত Array(n).fill().map(...(ES6 টিপস দেখুন)
এডসি 65

আমার পোস্ট করতে খুব দেরি হলেও আপনার জন্য একটি ইঙ্গিত: n=>1+[...[...Array(n-1)].map(_=>++n,n=1).join``].sort().join`` (1 বাইট আরও ছোট, এটি বিভক্ত)
edc65

@ edc65 এবং Cᴏɴᴏʀ O'Bʀɪᴇɴ টিপসটির জন্য ধন্যবাদ! আমি অবাক হয়েছি কেন ব্যবহারকে .split()এত
বিশ্রী

@ এডসি 65 হু, আমার সমাধানটি আপনার সমান দৈর্ঘ্য:n=>1+[...[...Array(n+1).keys()].slice(2).join``].sort().join``
নীল


5

গণিত, 52 বাইট

"1"<>ToString/@Sort[Join@@IntegerDigits[2~Range~#]]&

আবারও, স্ট্রিং প্রসেসিং ঘটেছে ...


আমি মনে করি IntegerDigitsতালিকার উপরে থ্রেড রয়েছে যাতে আপনার এটির মানচিত্রের দরকার পড়ে না।
মার্টিন এন্ডার

ওহ ঠিক আছে, প্রাধান্য।
মার্টিন এেন্ডার

4

এপিএল (17)

'1',∆[⍋∆←1↓∊⍕¨⍳⎕]

ব্যাখ্যা:

'1',∆[⍋∆←1↓∊⍕¨⍳⎕]
-----------------
               ⎕   read a number from the keyboard
               ⍳    get the natural numbers up to and including that number
             ⍕¨    get the string representation for each number
           ∊       flatten the array (giving a string of digits)
         1↓        remove the first digit (which is always 1)
       ∆←          store the result in ∆
      ⍋            get a permutation to sort ∆ upwards
    ∆[           ] rearrange ∆ so that it is sorted
'1',               add a 1 to the front

টেস্ট:

      '1',∆[⍋∆←1↓∊⍕¨⍳⎕]
⎕:
      1
1
      '1',∆[⍋∆←1↓∊⍕¨⍳⎕]
⎕:
      10
10123456789
      '1',∆[⍋∆←1↓∊⍕¨⍳⎕]
⎕:
      55
10000011111111111111122222222222222223333333333333333444444444444444455555555555566666777778888899999

নিস! আমার চেয়ে অনেক ভাল। : ডিআই বুঝতে পারল না যে অ্যারের সমতল করবে এবং আপনাকে একটি স্ট্রিং দেবে। এটা জানা ভাল.
অ্যালেক্স এ।


3

ClojureScript, 48 বাইট

#(apply str"1"(sort(apply str(range 2(inc %)))))

অন্যদের মতো একইরকম, অনেক বেশি। REPL এখানে উপলব্ধ ।


3

রুবি, 48 বাইট

একটি বেনামে ফাংশন। মূলত এখানে অন্য কয়েকটি উত্তর সম্পর্কে রুবিফাইড ..

->n{n>1?(?1+[*2..n].join.chars.sort*'').to_i: n}

3

ব্র্যাচল্যাগ , 76 41 বাইট

1 .;{,1:.e?}?:1fcbZlL,ZoOlM,10^(L-M)=:Oc.

ইনপুট হিসাবে একটি সংখ্যা নেয়।

এই সমাধানটি বিল্ট-ইন ফাইন্ডল প্রিপিকেটে আমি কয়েকটি পরিবর্তন করেছি f। উত্তরের চেয়ে পুরানো ভাষা ব্যবহারের সাথে ওপি স্পষ্টতই ঠিক আছে তাই আমি মনে করি এটি ঠিক আছে (আমি যে পরিবর্তনগুলি করেছি তা অনেক দিন আগেই উদ্দিষ্ট হয়েছিল, এই চ্যালেঞ্জের কারণে আমি কেবল নিজেকে এটি করার জন্য উদ্বুদ্ধ করেছি)।

ব্যাখ্যা

1 .                                            § If the input is 1, unify output with 1

   ;                                           § Else

    {      }?:1f                               § Output a list of all inputs which satisfy
                                               § the predicate in brackets with the input
                                               § of the main predicate (ie the input number)
                                               § as output

     ,1:.e?                                    § True if the input is an integer between 1
                                               § and . (the output)

                cbZ                            § Concatenate everything into a single number,
                                               § remove the first digit (1) and call it Z

                   lL,ZoOlM,                   § L is the length of Z, M is the length of O
                                               § O being Z sorted (which removes the leading
                                               § 0s)

                            10^(L-M)=:Oc.      § Concatenate 10^(L-M) at the beginning of O
                                               § and unify it with the output

3

স্মলটাক, 76 বাইট

স্মলটাল্কে বরাবরের মতো, ধারণাগতভাবে খুব সংক্ষিপ্ত, তবে পাঠ্যগতভাবে খুব ভার্বোস ...

f:l^'1',((2to:l)fold:[:p :q|p asString,q asString])asByteArray sort asString

এটিকে ক্লাসের পদ্ধতি হিসাবে যুক্ত করুন Stringএবং এর মতো কল করুন, যেমন 20 এর জন্য,String f: 20


3

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

seq $1|sed 's/./&\n/g'|sort|tr -d \\n|sed 's/\(0*\)1/1\1/'

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


1
আমার অনুরূপ পন্থা ছিল, তবে "শুরুতে 1" অংশের (52 বাইট) আলাদা হ্যান্ডলিং। আপনার সাথে, আপনি শেভ করতে পারেন: বাছাই করুন (1 ডিজিট দীর্ঘ, -n এর প্রয়োজন নেই)।
অলিভিয়ার ডুলাক

3

বাশ, 35 34 বাইট

printf %d 1`seq 2 $1|fold -1|sort`

এই উত্তরের উপর তৈরী করে @DigitalTrauma এবং @OlivierDulacআইডিয়ন দিয়ে এটি অনলাইনে চেষ্টা করুন ।

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

  • seq 2 $1কমান্ড লাইনে নির্দিষ্ট 2 থেকে সমস্ত পূর্ণসংখ্যা মুদ্রণ করে ।

  • fold -1 প্রস্থ 1 এর সাথে সমস্ত রেখা মোড়ানো, অর্থাত্ প্রতিটি অক্ষরকে তার নিজস্ব লাইনে রাখে।

    -1 এটি একটি অনিবন্ধিত বৈশিষ্ট্য বলে মনে হচ্ছে।

  • sort অক্ষরগুলি তাদের সংখ্যাগত মান অনুসারে বাছাই করে orts

  • printf %d 1`...`​প্রথম লাইনে একটি 1 সরবরাহ করে এবং প্রতিটি লাইনকে কোনও পূর্ণসংখ্যা ( %d) হিসাবে প্রিন্ট করে , কোনও বিচ্ছেদ ছাড়াই।

    এটি বাশের কৌতূহলযুক্ত প্রিন্টফ প্রয়োগকরণের সুবিধা গ্রহণ করে, যা সমস্ত আর্গুমেন্ট গ্রহন না হওয়া অবধি ফর্ম্যাট স্ট্রিংটিকে বারবার পুনরাবৃত্তি করে।


+1, আমি এটি আমাদের চেয়ে আরও ভাল :)
অলিভিয়ার ডুলাক

3

জাভাস্ক্রিপ্ট ES6, 49 46 বাইট

2 বাইটের জন্য edc65 ধন্যবাদ

F=
x=>1+[...(g=_=>x>1?x--+g``:_)``].sort().join``

;console.log(F(15))


1
আমি অনুরূপ কিছু পেয়েছি তবে 1 বাইট সংক্ষিপ্ত। কোনও যুক্তি ছাড়াই পুনরাবৃত্ত ফাংশনটি ব্যবহার করার চেষ্টা করুন, কেবলমাত্র মূল প্যারামিটার হ্রাস করুন x
edc65

2

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

n->"1"*join(sort([join(2:n)...]))

এটি একটি ল্যাম্বদা ফাংশন যা একটি পূর্ণসংখ্যা গ্রহণ করে এবং একটি স্ট্রিং প্রদান করে। এটি কল করতে, এটি একটি ভেরিয়েবলের জন্য বরাদ্দ করুন।

আমরা পরিসীমাটি তৈরি করি 2:nযা n<2 এর জন্য খালি থাকবে , এটি একটি স্ট্রিংয়ের সাথে যুক্ত হবে, স্ট্রিংকে অক্ষরগুলির একটি অ্যারেতে বিভক্ত করুন, তাদের বাছাই করুন, এটি একটি স্ট্রিংয়ে যুক্ত করুন এবং 1 প্রিপেন্ড করুন।


2

এপিএল, 21 বাইট

{' '~⍨⍕1,x[⍋x←⍕1↓⍳⍵]}

এটি একটি নামবিহীন monadic ফাংশন যা ডানদিকে একটি পূর্ণসংখ্যা গ্রহণ করে এবং একটি স্ট্রিং প্রদান করে। এটি কল করতে, এটি একটি ভেরিয়েবলের জন্য বরাদ্দ করুন।

ব্যাখ্যা:

            x←⍕1↓⍳⍵]}   ⍝ Get the numbers 1:input, drop 1, convert to string
         x[⍋            ⍝ Sort
      ⍕1,               ⍝ Tack 1 onto the front, flatten to string
{' '~⍨                  ⍝ Remove the spaces (side effect of ⍕ on an array)

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


2

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

P=input();print"1"+"".join(sorted(`range(2,P+1)`)[P*2-4:-2])

জয়ের সূচক। :-)


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

P=input();print"1"+"".join(sorted(`range(-P,-1)`))[P*3-5:-2]

শুধু একটি বিকল্প।


2

মিল্কিওয়ে 1.6.4 , 22 বাইট (প্রতিযোগিতা নয়)

^^'LH=^^JB", "-Q"1";+!

এই চ্যালেঞ্জের জন্য আমাকে বাছাই করা অপকোড যুক্ত করতে হয়েছিল।


ব্যাখ্যা

^^                      ` pop the TOS
  '                     ` read input from the command line
   LH                   ` push a reversed Pythonic range(TOS+1)
     =^^J               ` remove the top 2 items from the TOS
         B              ` push the string literal of the TOS
          ", "-         ` remove ", " from the TOS
               Q        ` sort the TOS
                "1";+   ` add "1" to the beginning of the TOS
                     !  ` output the TOS


2

বাশ এবং জিএনইউ সরঞ্জামগুলি, 58 52 বাইট

echo 1$(seq 2 $1|sed -e 's/./&\n/g'|sort|tr -d \\n)

@ ডিজিটাল-ট্রমা চেয়ে একই রকম পদ্ধতির, তবে 1 যুক্ত করার বিভিন্ন উপায় এবং সংখ্যাটি 1 ডিজিট দীর্ঘ হিসাবে -n এর দরকার নেই। (আমি আমার প্রথম চেষ্টা করার পরে তার উত্তরটি দেখেছি)
অলিভিয়ের দুলাক

2

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

param($a)(("1"+-join([char[]]-join(2..$a)|sort)),1)[$a-eq1]

ইনপুট নেয় param($a)এবং তারপরে এটিকে সূচিতে একটি অ্যারেতে ব্যবহার করে [$a-eq1]। যদি সত্য হয় তবে আমরা দ্বিতীয় উপাদান এবং আউটপুটকে সূচক করি 1। অন্যথায়, আমরা 1 দ্বারা নির্মিত এড অ্যারে "1"দিয়ে একত্রীকরণ করি join) একটি নতুন পরিসর সংজ্ঞায়িত করে 2..$aযা নিজেই joinএকসাথে সম্পাদিত হয়েছিল, 2) একটি চর-অ্যারে হিসাবে কাস্টিং এবং 3) Sort-Objectসেমিডিলেট মাধ্যমে প্রেরণ , যা সবই তখন আউটপুট।

সম্পাদনা 1 - অভ্যন্তরীণ -joinঅপারেটরটি সরিয়ে 2 বাইট সংরক্ষণ করা হয়েছে ।


2

গঘ , 9 7 বাইট

GJT1-1P

আপনি এটি ব্যবহার করে চালাতে পারেন:

$ ./gogh noi 'GJT1-1P' <input>

G     “ Push a range (1, TOS]       ”
J     “ Join the TOS                ”
T     “ Sort the TOS                ”
1-    “ Remove the first 1          ”
P     “ Prepend the TOS to the STOS ”

"আপনি এই ভাষা প্রতিযোগিতার পরে তৈরি হওয়া ভাষা ব্যবহার করতে পারেন, যতক্ষণ না এই চ্যালেঞ্জের জবাব দেওয়ার জন্য তৈরি করা হয়নি।" আমি এ জাতীয় ভাষাগুলি আমার চ্যালেঞ্জগুলিতে সাধারণত প্রতিযোগিতামূলক হওয়ার অনুমতি দিই;)
কনার ও ব্রায়ান

@ কেওবি: ওহ, দুর্দান্ত! এটি নির্দেশ করার জন্য ধন্যবাদ :)
জ্যাচ গেটস

2

জেলি , 8 বাইট

RDFṢ1œ|Ḍ

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

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

RDFṢ1œ|Ḍ  Main link. Argument: n (integer)

R         Range; yield r := [1, ..., n].
 D        Convert each k in r into the array of its digits in base 10.
  F       Flatten the resulting array of lists.
   Ṣ      Sort the resulting flat list of digits.
    1œ|   Perform multiset union with 1 as left argument.
          This moves a single 1 to the beginning of the list.
       Ḍ  Convert the resulting list of base 10 to integer.

2

ওরাকল এসকিউএল 11.2, 222 211 বাইট

SELECT 1||TRIM(xmlagg(xmlelement(e,c)).EXTRACT('//text()'))FROM(SELECT SUBSTR(s,LEVEL+2,1)c FROM(SELECT MAX(sys_connect_by_path(LEVEL,' '))s FROM DUAL CONNECT BY LEVEL<=:1)CONNECT BY LEVEL<=LENGTH(s)ORDER BY 1);

আন golfed

SELECT 1||TRIM(xmlagg(xmlelement(e,c)).EXTRACT('//text()'))  -- add leading 1, concatenate each char and remove spaces
FROM   (
         SELECT SUBSTR(s,LEVEL+2,1)c                          -- split the string in characters, omiting the first number (1)   
         FROM   (
                  SELECT MAX(sys_connect_by_path(LEVEL,' '))s -- create a string by concatenating numbers
                  FROM   DUAL 
                  CONNECT BY LEVEL<=:1
                )
         CONNECT BY LEVEL<=LENGTH(s)ORDER BY 1
       )

2

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

ভাষা / সংকলকের বর্তমান সংস্করণ (7.0.0) ব্যবহার করে ।

49[]i:"@YUh]6L)Sh

FryTheEggman এর উত্তর দ্বারা অনুপ্রাণিত ।

সম্পাদনা (জুলাই 29, 2016): আপনি ভাষার পরিবর্তনের সাথে সামঞ্জস্য করার জন্য কিছুটা পরিবর্তন করে অনলাইনে চেষ্টা করতে পারেন ।

উদাহরণ

>> matl
 > 49[]i:"@YUh]6L)Sh
 >
> 12
101111223456789

ব্যাখ্যা

49        % push '1'
[]        % push empty array
i:        % input "N" and build vector [1, 2, ... N]
"         % for each number in this vector
   @      % push that number
   YU     % convert to string
   h      % concatenate horizontally
]         % end
6L)       % remove first element
S         % sort
h         % concatenate horizontally

1

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

দ্রষ্টব্য: এই জমাটি এমন বৈশিষ্ট্যগুলি ব্যবহার করে যা এই চ্যালেঞ্জ পরবর্তী পোস্ট করে এবং তাই প্রতিযোগিতামূলক নয়

কোড:

Lß?J{?

ব্যাখ্যা:

L      # Creates the list [1 .. input]
 ß     # Extract the smallest value of the list
  ?    # Print this value (always 1)
   J   # ''.join(list)
    {  # Sort the string
     ? # Print this value

আইএসও 8859-1 এনকোডিং ব্যবহার করে


কিভাবে কাজ করে?
lirtosiast

@ থমাসকওয়া ব্যাখ্যা যোগ করেছেন
আদনান

দাঁড়ান। এটি চমৎকার!
কনর ও'ব্রায়ান

1

ম্যাথক্যাড, 86 "বাইটস"

ফাংশন (এন) প্রতিটি সংখ্যাকে তার স্ট্রিং ফর্মে রূপান্তর করে এবং সেগুলি একসাথে যুক্ত করে চ্যাম্পেরনউই "পূর্ণসংখ্যা" তৈরি করতে লুপের জন্য ব্যবহার করে। তারপরে স্ট্রিংটিকে ASCII কোডগুলির সমতুল্য ভেক্টরে রূপান্তরিত এবং সাজানো হয়। ফাংশনটি পরে প্রথমটির সাথে যে কোনও নেতৃস্থানীয় শূন্যকে অদলবদল করে, অবশেষে ভেক্টরটিকে আবার স্ট্রিংয়ে রূপান্তর করে।

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

এখানে চিত্র বর্ণনা লিখুন


ম্যাথক্যাড হ'ল "অঞ্চলগুলি" সমন্বিত 2D ওয়ার্কশিটগুলির উপর ভিত্তি করে গাণিতিক প্রয়োগ যা প্রতিটি পাঠ্য, গাণিতিক প্রকাশ, প্রোগ্রাম, প্লট বা স্ক্রিপ্ট উপাদান হতে পারে।

একটি গাণিতিক বা প্রোগ্রামিং নির্দেশাবলী একটি প্যালেট সরঞ্জামদণ্ড থেকে বা কীবোর্ড শর্টকাট ব্যবহার করে প্রবেশ করা হয়। গল্ফিংয়ের উদ্দেশ্যে, একটি অপারেশন ("বাইট") নাম বা ভাব তৈরি করতে প্রয়োজনীয় কীবোর্ড অপারেশনগুলির সংখ্যা হিসাবে নেওয়া হয় (উদাহরণস্বরূপ, চলকটিকে 3 এ সেট করতে, আমরা একটি লিখব: = 3। সংজ্ঞা অপারেটর : = হ'ল একক কিপ্রেস ":", যেমন a এবং 3 মোট 3 "বাইট" দেয় operator 1 বাইট।

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.