Tulis program atau fungsi yang mencetak atau mengembalikan string karakter alfanumerik plus garis bawah, dalam urutan apa pun . Untuk lebih tepatnya, karakter berikut harus di-output, dan tidak lebih :

abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_

Saat mencetak ke stdout, opsional membuntuti baris baru setelah output Anda diizinkan.

Konstanta bawaan yang berisi 9 karakter atau lebih di atas tidak diizinkan.

Kode terpendek dalam byte menang.

_{Ini adalah tantangan yang sangat sederhana, yang saya percaya akan menghasilkan beberapa jawaban menarik.}

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

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

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

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

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

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

var QUESTION_ID=85666,OVERRIDE_USER=4162;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;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>

Cembung, 9 byte

Metode baru! Juga, saya menyadari bahwa itu persis sama persis dengan jawaban Luis tetapi di Convex, tetapi saya datang dengan ini secara mandiri.

'{,®\W"Oò

Cobalah online!

Penjelasan:

'{,           Array of chars from NUL to 'z
   ®\W"       Regex to match non-word characters
       Oò     Replace all matches with emtpy string

Solusi lama, 10 byte:

A,'[,_¬^'_

Cobalah online!

Penjelasan:

A,          0-9
'[,_¬^      A-Za-z
'_          _

Ruby, 26 byte

Karakter dapat dicetak dalam urutan apa pun? Tidak masalah jika saya melakukannya!

Cobalah online!

$><<(?0..?z).grep(/\w/)*''

Perl, 20 byte

Membutuhkan -Etanpa biaya tambahan.

say+a.._,A.._,_..9,_

Jadi, jawaban awal saya (di bawah) agak terlalu membosankan. Satu-satunya hal yang berhasil saya buat adalah di atas, itu persis sama, tetapi terlihat sedikit lebih membingungkan ... Ini persis sama persis dengan di bawah ini:

say a..z,A..Z,0..9,_

Saya suka saran @ msh210 di komentar, tapi itu agak terlalu panjang!

Cheddar, 31 27 byte

->97@"123+65@"91+48@"58+"_"

Ini menampilkan @"operator dengan baik

Tidak menyelesaikan karena saya akhirnya harus memperbaiki @"operator. Bugnya adalah ia menghasilkan rentang Cheddar bukan rentang JS sehingga tidak bisa berfungsi dengan baik

Penjelasan

The @"Operator dirancang oleh @ CᴏɴᴏʀO'Bʀɪᴇɴ, dan apa yang dilakukannya adalah menghasilkan berbagai string dari LHS ke RHS. Ketika digunakan sebagai operator unary, ia mengembalikan char pada titik kode yang diberikan (seperti python chr)

Tidak disatukan

->
  97 @" 123 +
  65 @" 91  +
  48 @" 58  +
  "_"

brainfuck, 58 byte

+++[[<+>->++<]>]<<[-<->]<<-.+<<++[->>+.>+.<<<]<--[->>.+<<]

Cobalah online .

Menginisialisasi rekaman ke 3 · 2 ⁿ , dan bekerja dari sana.

+++[[<+>->++<]>]    initialize the tape
                    |   0 |   3 |   6 |  12 |  24 |  48 |  96 | 192 | 128 |   0 |   0 |
                                                                                    ^
<<[-<->]            subract 128 from 192
                    |   0 |   3 |   6 |  12 |  24 |  48 |  96 |  64 |   0 |   0 |   0 |
                                                                        ^
<<-.+<<++           ouput '_'; increment 24 twice
                    |   0 |   3 |   6 |  12 |  26 |  48 |  96 |  64 |   0 |   0 |   0 |
                                                ^
[->>+.>+.<<<]       output aAbBcC ~ zZ
                    |   0 |   3 |   6 |  12 |   0 |  48 | 122 |  90 |   0 |   0 |   0 |
                                                ^
<--[->>.+<<]        decrement 12 twice; output 0 ~ 9
                    |   0 |   3 |   6 |   0 |   0 |  58 | 122 |  90 |   0 |   0 |   0 |
                                          ^

JavaScript (ES6), 62 byte

_=>String.fromCharCode(...Array(123).keys()).replace(/\W/g,'')

Mengembalikan 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz, jadi hanya 6 byte lebih pendek dari fungsi yang mengembalikan string literal. Ya, itu menyebalkan.

Haskell, 38 byte

'_':['a'..'z']++['A'..'Z']++['0'..'9']

Tidak ada yang bisa dijelaskan di sini.

PowerShell v3 +, 35 33 byte

-join([char[]](1..127)-match'\w')

Membangun array dinamis 1..127, melemparkannya sebagai chararray. Itu diumpankan ke -matchoperator yang bekerja pada regex \w, yang akan mengembalikan semua elemen yang cocok (yaitu, persis alfanumerik dan garis bawah). Kami merangkum elemen-elemen array dalam a -joinuntuk mengikatnya sebagai satu string. Yang tersisa pada pipa dan output tersirat.

V, 27 byte

i1122ñYpñvHgJ|éidd@"Í×

Cobalah online!

Jawaban ini mengerikan berbelit-belit. Saya akan mengirim penjelasan nanti.

Hexdump:

00000000: 6916 1631 1b31 3232 f159 7001 f176 4867  i..1.122.Yp..vHg
00000010: 4a7c e969 6464 4022 1bcd d7              J|.idd@"...

Penjelasan:

Dapat dibaca:

i<C-v><C-v>1<esc>                                   "Insert the text "<C-v>1"
                                                    "<C-v> means "literal"
                 122ñ       ñ                       "122 times,
                     Yp                             "Duplicate this line
                       <C-a>                        "And increment the first number on this line
                             vHgJ                   "Join every line together
                                 |éi                "Insert an 'i' at the beginning of this line
                                    dd              "Delete this line
                                      @"<esc>       "And execute it as V code.
                                                    "That will generate every ascii value from 1-123
                                             Í×     "Now remove every non-word character.

J, 30 29 28 byte

Disimpan satu byte berkat randomra!

~.u:95,;48 65 97+i."*10,,~26

Keluaran:

   ~.u:95,;48 65 97+i."*10,,~26
_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Penjelasan

Saya tidak akan memberikan penjelasan sendiri , tetapi akan memberikan hasil menengah.

   10,,~26
10 26 26
   i. b. 0
1 _ _
   *  b. 0
0 0 0
   i."* b. 0
   i."*2 3 4
0 1 0 0
0 1 2 0
0 1 2 3
   i. 2
0 1
   i. 3
0 1 2
   i. 4
0 1 2 3
   i."*10,,~26
0 1 2 3 4 5 6 7 8 9  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
   0 1 2 + i."*10,,~26
0 1 2 3 4 5 6 7  8  9  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
1 2 3 4 5 6 7 8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
   48 65 97+i."*10,,~26
48 49 50  51  52  53  54  55  56  57  48  48  48  48  48  48  48  48  48  48  48  48  48  48  48  48
65 66 67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
   ;48 65 97+i."*10,,~26
48 49 50 51 52 53 54 55 56 57 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
   95,;48 65 97+i."*10,,~26
95 48 49 50 51 52 53 54 55 56 57 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 ...
   u:95,;48 65 97+i."*10,,~26
_01234567890000000000000000ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
   ~.u:95,;48 65 97+i."*10,,~26
_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Haskell, 31 byte

do(x,y)<-zip"aA0_""zZ9_";[x..y]

Ekspresi zip "aA0_" "zZ9_"memberikan daftar titik akhir [('a','z'),('A','Z'),('0','9'),('_','_')]. The donotasi mengambil setiap (x,y)ke inklusif yang\(x,y)->[x..y] dan merangkai hasil. Terima kasih kepada Anders Kaseorg untuk dua byte dengan dobukan >>=.

Bandingkan dengan alternatif:

do(x,y)<-zip"aA0_""zZ9_";[x..y]

zip"aA0_""zZ9_">>= \(x,y)->[x..y]
f(x,y)=[x..y];f=<<zip"aA0_""zZ9_"
id=<<zipWith enumFromTo"aA0_""zZ9_"
[c|(a,b)<-zip"aA0_""zZ9_",c<-[a..b]]
f[x,y]=[x..y];f=<<words"az AZ 09 __"

C, 50 byte

Panggil f()tanpa argumen.

f(n){for(n=128;--n;)isalnum(n)|n==95&&putchar(n);}

Cetakan

zyxwvutsrqponmlkjihgfedcba_ZYXWVUTSRQPONMLKJIHGFEDCBA9876543210

/// , 63 byte

abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_

Python 3, 58 byte

print('_',*filter(str.isalnum,map(chr,range(123))),sep='')

Program lengkap yang mencetak ke STDOUT.

Outputnya adalah: _0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Bagaimana itu bekerja

map(chr,range(123))       Yield an iterator containing all ascii characters with
                          code-points in [0,122]...
*filter(str.isalnum,...)  ...keep characters if alphanumeric and unpack into tuple...
print('_',...,sep='')     ...add underscore and print all characters with no separating
                          space

Cobalah di Ideone

Jika konstanta string diizinkan, berikut ini akan menjadi 45 byte:

from string import*
print('_'+printable[:62])

Upaya pertama saya di codegolf!

C #, 168 152 150 147 130 127 117 116 115 109 106 bytes

for(var a='0';a<'~';a++){Console.Write(System.Text.RegularExpressions.Regex.IsMatch(a+"","\\w")?a+"":"");}

Terima kasih banyak untuk aloisdg, AstroDan, Leaky Nun, dan Kevin Lau - bukan Kenny untuk semua bantuan dalam komentar.

Bash murni, 32

printf %s {a..z} {A..Z} {0..9} _

Ideone .

Objek Pascal, 85 83 73 byte

Pascal objek hanya menggunakan seperangkat karakter. Menulis program lengkap alih-alih prosedur mengurangi 2 byte. Menghapus kata kunci program mencukur 10 byte lebih banyak.

var c:char;begin for c in['a'..'z','A'..'Z','0'..'9','_']do write(c);end.

pesta - 47 37 byte

man sh|egrep -o \\w|sort -u|tr -d \\n

Output pada sistem saya adalah:

_0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ

Terima kasih kepada Digital Trauma untuk saran yang bermanfaat.

Pada beberapa sistem Anda mungkin dapat menggunakan asciialih-alih man shmenyimpan byte.

PHP, 40 byte

_0<?for(;$a++^9?$a^q:$a=A;)echo" $a"|$a;

Demo online .

Retina , 30 19 16 15 12 byte

Saya memodifikasi upaya alfabet asli saya untuk versi terbaru ini. Setiap karakter dicetak dalam satu lingkaran.

Baris pertama kosong.

;
+T\`;w`w_

Cobalah online

Keluaran:

_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Terima kasih kepada Leaky Nun untuk bermain golf 4 byte dari upaya terakhir saya.

MATL , 11 byte

7W:'\W'[]YX

Cobalah online!

7W     % Push  2 raised to 7, i.e. 128
:      % Range [1 2 ... 128]
'\W'   % Push string to be used as regex pattern
[]     % Push empty array
YX     % Regex replace. Uses (and consumes) three inputs: source text, regex pattern, 
       % target text. The first input (source text) is implicitly converted to char.
       % So this replaces non-word characters by nothing.
       % Implicitly display

Brachylog , 25 byte

"_"w9yrcw"A":"Z"ycL@l:Lcw

Ini mencetak yang berikut ini untuk STDOUT:

_9876543210abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

Penjelasan

"_"w               Write "_"
9y                 Get the list [0:1:2:3:4:5:6:7:8:9]
  rcw              Reverse it, concatenate into one number, write
"A":"Z"y           Get the list of all uppercase letters
        cL         Concatenate into a single string L
          @l:Lcw   Concatenate L to itself lowercased and write

Pyth, 13 12 byte

s:#"\w"0rk\|

Cobalah online!

Temukan semua karakter di U + 0000 hingga U + 007B yang cocok dengan regex /\w/ .

Keluaran 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz .

pendekatan alternatif: 15 byte

ssrMc4"0:A[a{_`

Cobalah online!

pada dasarnya menghasilkan rentang setengah-inclusive diperlukan: 0-:, A-[, a-{, _-`.

CJam , 15 14 11 byte

4 byte off berkat @FryAmTheEggman dan @Dennis!

A,'[,_el^'_

Cobalah online!

A,    e# Push range [0 1 ... 9]
'[,   e# Push range of chars from 0 to "Z" ("[" minus 1)
_el   e# Duplicate and convert to lowercase
^     e# Symmetric difference. This keeps letters only, both upper- and lower-case
'_    e# Push "_".
      e# Implicitly display stack contents, without separators

Brainfuck, 89 byte

+++++++++[>+++++>+<<-]>+++.>[<+.>-]<+++++++>>+++++++++++++[<+<+.+.>>-]<<+++++.+>[<+.+.>-]

Coba di sini

Detail:

+++++++++[>+++++>+<<-]>+++.  Goes to '0' while remembering a 9 for the 9 other numbers
[<+.>-]                      Simply prints for the next 9 characters
<+++++++>                    Moves it 7 space to the letters
>+++++++++++++               Saves a 13
[<+<+.+.>>-]                 Prints 2 char at a time while making a second '13' space
<<+++++.+>                   Moves 5, prints '_' and moves to the lowercases
[<+.+.>-]                    And again the double print

Jika saya bisa berkomentar, saya harus meningkatkan jawaban orang lain. Tapi karena saya tidak bisa, saya mungkin memposting sendiri. Ketika saya mulai menulis ini, BF terendah adalah 96 panjang.

F #, 50 59 byte

Seq.iter(printf"%c"<<char)(95::[48..57]@[65..90]@[97..122])

Keluaran:

_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Sunting: melewatkan digit pertama kali

Edit2, terinspirasi oleh solusi Haskell ini, potongan F # ini adalah 67 byte.

Seq.zip"aA0_""zZ9_"|>Seq.iter(fun(x,y)->Seq.iter(printf"%c")[x..y])

Keluaran:

abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_

Hexagony, 33

"A}_8_47<='>({a/_x.@.9!\356);');

Diperluas:

    " A }
  _ 8 _ 4 7
 < = ' > ( {
a / _ x . @ .
 9 ! \ 3 5 6
  ) ; ' ) ;
   . . . .

Keluaran:

aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1203568479_

Cobalah online!

Perhatikan bahwa ada karakter yang tidak patut dicetak 0x1A sebagai byte pertama dari program. Ini juga membuat baris pertama Hexagon yang diperluas terlihat agak tidak aktif. Terima kasih banyak kepada Martin karena menunjukkan trik ini kepada saya, juga karena menyarankan algoritma untuk mencetak alfabet!

Ini mencetak alfabet dengan menyimpan adan Apada dua sisi segi enam dan angka 26 pada sisi segi enam yang menyentuh sambungan antara huruf. Ini terlihat seperti ini:

A \ / a
   |
   26

Kemudian memasuki loop yang mencetak surat-surat dan kemudian menambahkannya, dan kemudian mengurangi jumlahnya. Setelah satu iterasi kita akan memiliki:

B \ / b
   |
   25

Dan seterusnya. Kode linear untuk inisialisasi adalah: 0x1A " A } a. Kode linear untuk loop luar perubahan aliran kontrol adalah: ; ) ' ; ) { ( ' =.

Setelah penghitung mencapai nol, kami mengikuti jalur yang berbeda untuk mencetak angka dan garis bawah. Ditulis linear ini adalah: x 3 5 6 8 4 7 9 ! ; { @. Ini menggantikan nilai tepi memori saat ini dengan angka 1203568479 (perhatikan bahwa xkode ASCII adalah 120), yang berisi semua angka desimal. Kami mencetak nomor ini dan kemudian kami menggunakan fitur Hexagony yang rapi: kami mencetak nomor mod 256 sebagai karakter ASCII. Ini kebetulan menjadi 95, atau garis bawah.

Brainfuck, 114 103 98 90 76 71 byte

Hal sepele lainnyaSolusi (sekarang non-sepele), tetapi kali ini adalah BF!

Disimpan 14 (!) Byte berkat @primo.

Disimpan 4 byte lebih banyak berkat saran @ primo untuk menghasilkan rentang mundur, dan saya menyimpan lainnya dengan menambahkan sebelum mencetak untuk huruf kecil.

Baru (pengulangan 4, 71):

+[--[<+++++++>->+<]>-]<<+++<--<-<-----<++++.+>>>[-<<.+<+.>>>]>[-<<.+>>]

Lama (nilai, 114):

-[----->+<]>--->++++++++++>--[----->+<]>-------.++>----[---->+<]>++>++++[->++++++<]>++[-<<.+<<.+>>>>]<<<<<<[-<.+>]

Lama (pengulangan 1, 103):

++++++++++[[<+>->+<]>+++++++++++++++]<<[<]>>+>++++++++>>----->>-----.++<<<<<[->>>.+>>.+<<<<<]<[->>.+<<]

Lama (pengulangan 2, 90):

+++++++[[<+>->+<]>>+++[-<+++++++>]<]<<[<]>+++>-->->----->++++.++<<<[->>.+>.+<<<]<[->>.+<<]

Lama (pengulangan 3, 76):

+[[<+++++++>->+<]>+++]<<[<]>+++>-->->----->++++.++<<<[->>.+>.+<<<]<[->>.+<<]

Diasumsikan sel pembungkus 8 bit dan memori pembungkus. Saya menggunakan Coba online .

Semua dicetak _AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789

Pertama, bagian ini

+[--[<+++++++>->+<]>-]<<

menginisialisasi rekaman dengan nilai-nilai ini

[91, 70, 49, 21, 7]
                 ^

Ini berfungsi karena hubungan pengulangan yang saya modelkan pada dasarnya adalah f(x) = 7 * (3 * x + 1), mundur. Lihat @ primo Halo, Dunia! Menjawab untuk penjelasan tentang apa itu hubungan perulangan.

Kemudian, cukup mudah untuk mengubah nilai-nilai ini menjadi yang bermanfaat. (dan cetak garis bawah)

Code: +++<--<-<-----<++++.+

Tape: [96, 65, 48, 26, 10]
       ^

Kemudian, loop sederhana menggunakan nilai-nilai untuk mencetak sisa karakter. Saya menghemat 1 byte dengan menambah sebelum mencetak.

>>>[-<<.+<+.>>>]>[-<<.+>>]

Saya benar-benar perlu menemukan generasi urutan yang lebih pendek.

Saya menemukan hubungan pengulangan yang tampaknya bekerja dengan baik, tetapi mungkin ada yang lebih pendek tanpa berburu dan mematuk.

Saya menggunakan kalkulator regresi linier untuk menemukan apa yang seharusnya menjadi hubungan perulangan linear sesingkat mungkin, jadi saya mungkin harus menemukan beberapa formula lain jika saya ingin meningkatkan.

@ Primo benar-benar meningkatkan hubungan pengulangan, terima kasih.

Sesos , 17 byte

00000000: a854be 2cbc9e 71d597 14bc56 1ad99e 713b           .T.,..q....V...q;

Keluaran

0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz_

Cobalah online! Periksa Debug untuk melihat kode biner yang dihasilkan.

Bagaimana itu bekerja

File biner di atas telah dihasilkan dengan merakit kode SASM berikut.

add 48     ; Set cell 0 to 48 ('0').
fwd 1      ; Advance to cell 1.
add 10     ; Set cell 1 to 10.
jmp        ; Set an entry marker and jump to the jnz instruction.
    rwd 1  ;   Retrocede to cell 0.
    put    ;   Print its content (initially '0').
    add 1  ;   Increment cell 0 ('0' -> '1', etc.).
    fwd 1  ;   Advance to cell 1.
    sub 1  ;   Decrement cell 1.
jnz        ; While cell 1 in non-zero, jump to 'rwd 1'.
           ; This loop will print "0123456789".
rwd 1      ; Retrocede to cell 0, which holds 48 + 10 = 58.
add 7      ; Set cell 0 to 65 ('A').
fwd 1      ; Advance to cell 1.
add 26     ; Set cell 1 to 26.
jmp        ; Set an entry marker and jump to the jnz instruction.
    rwd 1  ; Retrocede to cell 0.
    put    ; Print its content (initially 'A').
    add 32 ; Add 32 to convert to lowercase ('A' -> 'a', etc.).
    put    ; Print the cell's content.
    sub 31 ; Subtract 31 to switch to the next uppercase letter ('a' -> 'B', etc.).
    fwd 1  ; Advance to cell 1.
    sub 1  ;   Decrement cell 1.
jnz        ; While cell 1 in non-zero, jump to 'rwd 1'.
           ; This loop will print "AaBb...YyZz".
rwd 1      ; Retrocede th cell 0, which holds 65 + 26 = 91.
add 4      ; Set cell 0 to 95 ('_').
put        ; Print its content.

Pyke, 13 byte

150m.C#P)\_+s

Coba di sini!

Menghasilkan ascii 0-150 dan memfilter menurut alfanumerik dan menambahkannya _sampai akhir