ค่าคงที่ Champernowne คือตัวเลขที่สร้างขึ้นโดยการต่อnหมายเลขแรกเข้าด้วยกันโดยมีnแนวโน้มจะไม่มีที่สิ้นสุด ดูเหมือนว่า:

0.123456789101112131415161718192021222324252627282930...

ตอนนี้ฉันจะอธิบายหมายเลขRienให้คุณฟัง มันอาจคิดว่าเป็นการลดค่าคงที่ของ Champernowne ให้เป็นจำนวนเต็ม ฉันจะอ้างถึงหมายเลขRien ที่มีnตัวเลขแรกเป็น Ri ( n ) นี่คือวิธีการกำหนด:

1. nหมายเลขธรรมชาติแรก(ลำดับ {1,2,3, ... }) ถูกต่อกัน
2. ผลลัพธ์นี้จะถูกจัดเรียงตามค่าตัวเลข ดังนั้น1..12จะมีลักษณะ011111223456789ดังนี้
3. ตั้งแต่Rienจำนวนไม่สามารถมีเลขศูนย์ชั้นนำที่เราย้ายทั้งหมด0s 101111223456789เพื่อให้พวกเขามีความสำคัญขณะที่การรักษาจำนวนลดลงส่งผลให้ในการพูด นี่คือ Ri ( n ) ในกรณีนี้ Ri (12)

นี่คือผลลัพธ์บางส่วนสำหรับ Ri ( n ):

n     Ri ( n )
1 1
2 12
3 123
7 1234567
9 123456789
10 10123456789
15 101111111223344556789
34 1,000111111111111122222222222222222333333333333333334445545666666666777888999
42 1000011111111111111111222222222222222333333333333333333333333444444454555566777788889999 42
45 100001111111111111112122222222222222233333333333333333333333333334444444444444445455555666655776688889999
55 10000011111111111111112222222222222222223333333333333333333333333344444444444444444444444444444444444545555555555555555555 55
100 10000000000011111111111111111112122222222222222222222233333333333333333333333333333333333333333333333399999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 1009900000000011111111111111111112122222222222222222222233333333333333333333333333333333333333333333339999999999999999999999999999 ใหม่อีกครั้ง 100 1000000000001111111111111111111212222222222222222222223333333333333333333333333333333333333333333333999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 ใหม่! ใหม่!
999100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999

วัตถุประสงค์ให้ตัวเลข 1 ≤ n<10000 เป็นอินพุต (ผ่านอาร์กิวเมนต์, STDIN หรือ hardcoding หากภาษาของคุณไม่รองรับอินพุตทั่วไป), เอาต์พุต / ส่งกลับ Ri ( n)

นี่คือรหัสการเล่นกอล์ฟดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ชนะ คุณสามารถใช้ภาษาที่สร้างขึ้นหลังจากการแข่งขันนี้ได้ตราบใดที่มันไม่ได้ถูกสร้างขึ้นเพื่อตอบคำถามนี้ (แน่นอนคุณสามารถใช้มันได้หากมันมีทางออกที่น่าสนใจ แต่ทำเครื่องหมายคำตอบของคุณว่าไม่ใช่การแข่งขัน)

การดำเนินการอ้างอิง

ฉันทดสอบสิ่งนี้ใน IE ดังนั้นจึงไม่น่าจะมีปัญหา หากมีเป็นปัญหาที่มีโซลูชั่นที่ง่าย: ได้รับสติเบราว์เซอร์

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) เป็นรายการคำตอบสั้นที่สุดต่อภาษาและ b) เป็นลีดเดอร์บอร์ดโดยรวม

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

## 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

var QUESTION_ID=68685,OVERRIDE_USER=44713;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Pyth, 8

+1SjktSQ

สร้างรายการ[1, .. , input]จากนั้นนำรายการนำเข้ารวมและเรียงลำดับจากนั้นเติม 1

ชุดทดสอบ

Perl, 44 42 41 33 31 ไบต์

Yaaay โพสต์แรกเลย!

ขอบคุณ primo สำหรับการบันทึก 2 ไบต์

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

อย่างที่คนอื่นทำเอา 1 และเตรียมมันด้วยตนเองทำงาน

ลองออนไลน์

Japt, 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

เรติน่า , 78 ไบต์

ถึงเวลาที่จะแสดงคุณสมบัติใหม่ ๆ ของ Retina (ยังไม่สามารถแข่งขันได้มาก แต่ก่อนหน้านี้อาจจะมีขนาดใกล้เคียงกับ 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เป็นรี ผมเคยอธิบายว่าทำไมงานนี้ในคำตอบของฉัน FizzBuzz

(1)+
$#1

เราแปลงแต่ละตัวเลขในช่วงกลับเป็นทศนิยมเพื่อให้เราสามารถทำงานกับตัวเลขทศนิยม สิ่งนี้ทำได้โดยการจับคู่หมายเลข unary แต่ละตัวเพื่อให้แต่ละหมายเลข1สร้างการจับภาพแยกกัน $#1จากนั้นเราก็มาแทนที่ที่มีจำนวนของการจับภาพของกลุ่มคนที่ใช้การจับภาพใหม่นับไวยากรณ์

^1| 

การทำเช่นนี้จะเป็นการลบ1ช่องว่างนำหน้าและช่องว่างทั้งหมดออกจากสตริงดังนั้นเราจึงเหลือเพียงตัวเลขเท่านั้น (ยกเว้นเพียงตัวเดียว1)

.
 1$0$*1

เราแปลงกลับเป็น unary และเพิ่ม1แต่ละหลัก (เพื่อให้แน่ใจว่าแม้0จะไม่ว่างเปล่า) นอกจากนี้เรายังแทรกช่องว่างด้านหน้าของแต่ละหลักเพื่อให้แน่ใจว่าแยกออกจากกัน

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

เราจับคู่หมายเลขเล็ก ๆ ซ้ำ ๆ นำหน้าด้วยจำนวนที่มากขึ้นและสลับ นั่นคือการจัดเรียงฟองในจอประสาทตา :)

 1(1)*
$#1

Aaaand กลับเป็นทศนิยม

^
1

ในที่สุดเราแทรกหนึ่ง1ที่ด้านหน้าเพื่อบัญชีสำหรับสิ่งที่เราได้ลบก่อนหน้า

Haskell, 44 ไบต์

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

แต่น่าเสียดายที่sortอยู่ในData.Listที่ที่ 17 ไบต์!

JavaScript (ES6), 65 62 54 52 ไบต์

บันทึก 3 ไบต์ด้วย edc65

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

สร้างสตริงของตัวเลขทั้งหมดจาก 2 ถึงxจากนั้นแยกเรียงลำดับรวมและเพิ่ม 1 ถึงจุดเริ่มต้น สิ่งนี้อาจยังสามารถเล่นได้ ข้อเสนอแนะยินดีต้อนรับ!

CJam, 9

1qi),2>s$

ลองออนไลน์

อีกวิธีหนึ่งคือ:

qi,:)(\s$

Mathematica, 52 ไบต์

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

การประมวลผลสตริงเกิดขึ้นอีกครั้ง ...

APL (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

Python 2, 60 ไบต์

_="".join;print"1"+_(sorted(_(map(str,range(2,input()+1)))))

ClojureScript ขนาด 48 ไบต์

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

เช่นเดียวกับคนอื่น ๆ ทั้งหมดสวยมาก REPL ใช้ได้ที่นี่

ทับทิมขนาด 48 ไบต์

ฟังก์ชั่นที่ไม่ระบุชื่อ โดยทั่วไปเพียง Rubyfied คำตอบอื่น ๆ ที่นี่ ..

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

Brachylog , 76 41 ไบต์

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

ใช้ตัวเลขเป็นอินพุต

วิธีนี้ใช้ได้กับการเปลี่ยนแปลงเล็กน้อยที่ฉันทำกับคำสั่ง Findall ในfตัว OP เห็นได้ชัดว่าตกลงกับการใช้ภาษาที่เก่ากว่าคำตอบดังนั้นฉันคิดว่านี่เป็นสิ่งที่ดี (การเปลี่ยนแปลงที่ฉันทำมีความตั้งใจมานานแล้วฉันเพิ่งกระตุ้นตัวเองให้ทำเพราะความท้าทายนี้)

คำอธิบาย

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

Smalltalk, 76 ไบต์

ตามปกติใน Smalltalk แนวความคิดรวบยอดมาก แต่ verbose มาก textually ...

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

เพิ่มสิ่งนี้เป็นวิธีการเรียนStringและโทรเช่นนี้สำหรับ 20String f: 20

ยูทิลิตี Bash + GNU, 58

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

ลองออนไลน์

Bash, 35 34 ไบต์

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

นี้สร้างขึ้นอยู่กับคำตอบของ@DigitalTraumaและ@OlivierDulac ลองมันออนไลน์กับIdeone

มันทำงานอย่างไร

• seq 2 $1พิมพ์จำนวนเต็มทั้งหมดจาก2เป็นค่าที่ระบุในบรรทัดคำสั่ง

• fold -1 ล้อมทุกบรรทัดด้วยความกว้าง 1 เช่นวางอักขระแต่ละตัวในบรรทัดของตัวเอง

  -1 ดูเหมือนว่าจะเป็นคุณสมบัติที่ไม่มีเอกสาร

• sort เรียงลำดับอักขระตามค่าตัวเลข

• printf %d 1`...`​เพิ่ม1ถึงบรรทัดแรกและพิมพ์แต่ละบรรทัดเป็นจำนวนเต็ม ( %d) โดยไม่มีการแยก

  สิ่งนี้ใช้ประโยชน์จากการใช้งาน printf ที่อยากรู้อยากเห็นของ Bash ซึ่งทำซ้ำสตริงรูปแบบซ้ำแล้วซ้ำอีกจนกว่าอาร์กิวเมนต์ทั้งหมดจะถูกใช้ไป

JavaScript ES6, 49 46 Bytes

ขอบคุณ edc65 สำหรับ 2 ไบต์

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

;console.log(F(15))

Julia, 33 ไบต์

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

นี่คือฟังก์ชั่นแลมบ์ดาที่รับจำนวนเต็มและส่งกลับสตริง หากต้องการเรียกใช้กำหนดค่าให้กับตัวแปร

เราสร้างช่วง2:nซึ่งจะว่างเปล่าสำหรับn<2, เข้าร่วมเป็นสตริง, splat สตริงลงในอาร์เรย์ของตัวอักษร, เรียงลำดับ, เข้าร่วมมันเป็นสตริง, และเพิ่ม 1

APL, 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)

ลองออนไลน์

Python 2, 60 ไบต์

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

การจัดทำดัชนีสำหรับผู้ชนะ :-)

Python 2, 60 ไบต์

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

เพียงทางเลือก

ทางช้างเผือก 1.6.4 , 22 ไบต์ (ไม่ใช่การแข่งขัน)

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

ฉันต้องเพิ่ม opcode การเรียงลำดับสำหรับความท้าทายนี้

คำอธิบาย

^^                      ` 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

จริงจัง 10 ไบต์

,u2xεjS'1+

ฐานสิบหก:

2c753278ee6a5327312b

ลองใช้ออนไลน์

คำอธิบาย:

,            Read input
 u2x         Push range from 2..n
    εj       Join into string
      S      Sort
       '1+   Prepend a "1"

เครื่องมือทุบตีและ GNU ขนาด58 52 ไบต์

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

PowerShell, 61 59 ไบต์

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

จะเข้าแล้วใช้มันเพื่อดัชนีลงในอาร์เรย์ที่มีparam($a) ถ้าเป็นจริงเราจัดทำดัชนีองค์ประกอบที่สองและเอาท์พุท[$a-eq1] 1มิฉะนั้นเราเชื่อมโยง"1"กับjoinอาร์เรย์ ed ที่สร้างขึ้นโดย 1) กำหนดช่วงใหม่2..$aที่ถูกjoinรวมเข้าด้วยกัน 2) การคัดเลือกว่าเป็น char-array และ 3) ส่งผ่านSort-Objectcmdlet ซึ่งทั้งหมดจะถูกส่งออก

_{แก้ไข 1 - บันทึก 2 ไบต์โดยเลื่อน-joinโอเปอเรเตอร์ด้านใน}

Gogh , 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 ”

เยลลี่ขนาด 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.

Oracle SQL 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);

ยกเลิกแข็งแรงเล่นกอล์ฟ

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
       )

MATL , 17 ไบต์

ใช้ภาษา / คอมไพเลอร์เวอร์ชันปัจจุบัน (7.0.0)

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

แรงบันดาลใจจากคำตอบของ FryTheEgggman

แก้ไข (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

05AB1E , 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

ใช้การเข้ารหัส ISO 8859-1

Mathcad, 86 "ไบต์"

ฟังก์ชั่น s (n) ใช้สำหรับ for loop เพื่อสร้าง Champernowne "จำนวนเต็ม" โดยการแปลงตัวเลขแต่ละตัวให้เป็นรูปแบบสตริงและเชื่อมต่อเข้าด้วยกัน สตริงจะถูกแปลงเป็นเวกเตอร์เทียบเท่าของรหัส ASCII และเรียงลำดับ จากนั้นฟังก์ชันจะสลับค่าศูนย์นำหน้าด้วยค่าแรกและสุดท้ายแปลงเวกเตอร์กลับไปเป็นสตริง

ในการตรวจสอบฟังก์ชั่นฉันใส่เคสทดสอบลงใน vector vn จากนั้นใช้ s กับ vn โดยใช้ตัวดำเนินการ vectorize ฉันจะตรวจสอบผลลัพธ์กับค่ากรณีทดสอบที่กำหนด

Mathcad เป็นแอปพลิเคชั่นทางคณิตศาสตร์ที่ใช้แผ่นงาน 2D ซึ่งประกอบด้วย "ภูมิภาค" ซึ่งแต่ละอันสามารถเป็นข้อความนิพจน์ทางคณิตศาสตร์โปรแกรมพล็อตหรือส่วนประกอบสคริปต์

คำสั่งทางคณิตศาสตร์หรือการเขียนโปรแกรมถูกเลือกจากแถบเครื่องมือถาดสีหรือป้อนโดยใช้แป้นพิมพ์ลัด เพื่อวัตถุประสงค์ในการตีกอล์ฟการดำเนินการ ("byte") จะถูกนำไปใช้เป็นจำนวนการดำเนินงานของแป้นพิมพ์ที่จำเป็นในการสร้างชื่อหรือการแสดงออก (ตัวอย่างเช่นการตั้งค่าตัวแปร a ถึง 3 เราจะเขียน a: = 3 : = เป็นปุ่มกดเดียว ":" เช่นเดียวกับ a และ 3 ให้ผลรวม 3 "ไบต์" การเขียนโปรแกรมสำหรับโอเปอเรเตอร์ต้องการการพิมพ์ ctl-shft- # (หรือคลิกครั้งเดียวบนแถบเครื่องมือการเขียนโปรแกรม) ดังนั้นอีกครั้งเทียบเท่า 1 ไบต์