เขียนโปรแกรมที่ใช้เป็นสายอักขระที่ป้อนสตริงที่มีคุณสมบัติดังต่อไปนี้

• หากตัวอักษรในสตริงเป็นตัวอักษรตัวพิมพ์ใหญ่ (ASCII 41-5A) อักขระนั้นจะถูกแทนที่ด้วยสตริงที่มีตัวอักษรทุกตัวจนถึงและรวมถึงตัวอักษรต้นฉบับในตัวพิมพ์ใหญ่ ตัวอย่างเช่นถ้าสายป้อนเป็นแล้วออกจะเป็นIABCDEFGHI
• ในทำนองเดียวกันถ้าตัวละครเป็นตัวอักษรตัวเล็ก (ASCII 61-7A) ตัวละครจะถูกแทนที่ด้วยวิธีเดียวกัน จะถูกแทนที่ด้วยiabcdefghi
• หากตัวละครเป็นตัวเลข (ASCII 30-39) ตัวละครนั้นจะถูกแทนที่ด้วยตัวเลขทุกตัวที่เริ่มต้นจาก0และนับจนถึงจำนวน
• หากอินพุตมีการตัดแบ่งอักขระแต่ละตัวดังนั้นลำดับการแทนที่จะถูกรวมเข้าด้วยกัน
• อักขระอื่นทั้งหมดจะถูกพิมพ์โดยไม่มีการดัดแปลง

อินพุตตัวอย่าง (คั่นด้วยบรรทัดว่าง)

AbC123

pi=3.14159

Hello, World!

ตัวอย่างผลลัพธ์

AabABC010120123

abcdefghijklmnopabcdefghi=0123.0101234010123450123456789

ABCDEFGHabcdeabcdefghijklabcdefghijklabcdefghijklmno, ABCDEFGHIJKLMNOPQRSTUVWabcdefghijklmnoabcdefghijklmnopqrabcdefghijklabcd!

นี่คือรหัสกอล์ฟ, fellas ใช้กฎมาตรฐาน รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

หากต้องการดูลีดเดอร์บอร์ดให้คลิก "แสดงข้อมูลโค้ด" เลื่อนไปที่ด้านล่างและคลิก "►เรียกใช้ข้อมูลโค้ด" ส่วนย่อยทำโดยเครื่องมือเพิ่มประสิทธิภาพ

/* Configuration */

var QUESTION_ID = 61940; // Obtain this from the url
// It will be like http://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 43444; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "http://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "http://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    else console.log(body);
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    lang = jQuery('<a>'+lang+'</a>').text();
    
    languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang_raw.toLowerCase() > b.lang_raw.toLowerCase()) return 1;
    if (a.lang_raw.toLowerCase() < b.lang_raw.toLowerCase()) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

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="language-list">
  <h2>Shortest Solution 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>
<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>
<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, 19 ไบต์

sXzsJ+rBG1jkUTs._MJ

ลองใช้ออนไลน์: การสาธิตหรือชุดทดสอบ

คำอธิบาย

sXzsJ+rBG1jkUTs._MJ
      rBG1            the list ["abc...xyz", "ABC...XYZ"]
     +    jkUT        appends the string "0123456789"
    J                 save this list of 3 strings in J
   sJ                 join the strings in J
               ._MJ   create all prefixes of the strings in J
              s       and combine them to one list
 XzsJ         s._MJ   translate the input string, chars from sJ
                      get translated to the correct prefix,
                      chars that don't appear in sJ don't get translated
s                     join all resulting translation strings

Python 2.7, 100 98 96 ไบต์

a=[]
for c in raw_input():d=ord(c);a+=range(max(d&96|1,48),d)*c.isalnum()+[d]
print bytearray(a)

TeaScript , 24 ไบต์26 28

TeaScript เป็น JavaScript สำหรับเล่นกอล์ฟ

xl(#(i=lN()1)h(ii(l)+1))

ค่อนข้างสั้น

ลองออนไลน์

คำอธิบาย

x.l(#            // Loops through each character of the string

     (i=l.N()1)  // Determines whether a character is alphanumeric
                 // Will return A-Z, a-z or 0-9 depending on result
                 // Assigns to variable i

     .h(         // Get characters up to...
        i.i      // where the character is in "i"
     ) + 1       // Increased by one
)

Ruby, 137 87 82 76 67 55 ไบต์

Ungolfed แต่คุณสามารถเห็นรูปแบบ

$><<gets.gsub(/[a-z0-9]/i){[*" 0Aa"[$&.ord/32]..$&]*""}

แก้ไข: golfed ลงไปที่ regex เดียวเท่านั้น

แก้ไข 2: มีช่องว่างเพิ่มจำนวนมาก

แก้ไข 3: ขอบคุณ manatwork สำหรับการเล่นกอล์ฟ 12 ไบท์!

Python 2, 145 140 133 103 102 ไบต์

ฟังก์ชั่นที่ไม่ระบุตัวตนที่ไม่ให้ทันสมัยโดยใช้ความเข้าใจในรายการ ฉันรู้สึกว่าตรรกะควรสั้นกว่านี้มากฉันจะลองคิดดู

lambda k:''.join([c,`map(chr,range(48+17*(c>'@')+32*(c>'`'),ord(c)+1))`[2::5]][c.isalnum()]for c in k)

ควรได้รับชื่อที่จะใช้เช่น f=...

Haskell, 95 91 86 60 ไบต์

c#(a:o:r)|c<a||c>o=c#r|1<2=[a..c]
c#_=[c]
f=((#"AZaz09")=<<)

ตัวอย่างการใช้: f "pi=3.14159"->"abcdefghijklmnopabcdefghi=0123.0101234010123450123456789"

วิธีการทำงาน: คัดลอกทุกถ่านในสายป้อนเว้นแต่ c คือในระหว่างการใด ๆA/ Z, a/ zหรือ0/ และหากเพื่อใช้รายชื่อของ9[<first char in pair> ... <c>]

แก้ไข: @Zgarb บันทึกจำนวนมากหลายไบต์ ขอบคุณ!

JavaScript (ES6), 143 138 ไบต์

ใช้การเปรียบเทียบสตริงเพื่อทดสอบอักขระที่จะใช้

s=>s.replace(/[A-Z0-9]/gi,c=>(a=btoa`Ó]·ã»óÖq×£Y§¢«²Û¯Ã³`,(c>'Z'?a:a.toUpperCase()).split``.filter(x=>x<=c&(x>'9'|c<'A')).join``))

การสาธิตออนไลน์ ทดสอบใน Firefox และ Chrome

แก้ไข: บันทึก 5 ไบต์โดยแทนที่a='0123456789abcdefghijklmnopqrstuvwxyz'ด้วย

a=btoa`Ó]·ã»óÖq×£Y§¢«²Û¯Ã³`

PHP, 146 ไบต์

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

function f($n,&$l){for(;$c=$n[$r],$b=0,$d=ord($c);$r++,$b?:$l.=$c)foreach([58=>48,91=>65,123=>97] as $m=>$i)while($d<$m&&$d>=$i)$b=$l.=chr($i++);}

รุ่นที่ 1:ใส่ช่วง ord ลงในหน้า foreach โดยตรง เพิ่มขึ้นอ๊อด maxes ช่วงและมีการเปลี่ยนแปลงไป$d<=$m $d<$mใช้forเพื่อย้ำตัวอักษรแทนและforeach str_splitลบทั้งหมด{}โดยการย้ายรหัสไปที่for

Ungolfed

function f($input,&$output){
foreach (str_split($input) as $char){
  $ord = ord($char);
  $ords = [57=>48,90=>65,122=>97];
  $b = 0;
  foreach ($ords as $max=>$min){
     while ($ord<=$max&&$ord>=$min){
         $b = $max;
         $output .= chr($min);
         $min++;
     }
  }
  $b ?: $output.=$char;
}
};

$output = NULL;
$input = "pi=3.141592";
f($input,$output);
echo $output;

คำอธิบาย: แยกสตริงออกเป็นอาร์เรย์ หากค่า ascii อยู่ในช่วง (สำหรับ az, AZ, 0-9) ให้เพิ่มตัวนับจากนาทีของช่วงเป็นค่า ascii ของถ่านต่อท้ายแต่ละค่าจนกว่าคุณจะถึงค่า ascii ของถ่าน

ฉันส่งผ่าน&$varดังนั้นการส่งออกจะทำโดยอ้างอิงมากกว่าreturn

Python ขนาด 143 ไบต์

lambda s:''.join(map(chr,sum(map(lambda a,r=range:r(65,a+1)if 64<a<97else r(97,a+1)if 96<a<123else r(48,a+1)if 47<a<58else[a],map(ord,s)),[])))

ลองออนไลน์

Perl 6, 101 bytes

นี่เป็นครั้งแรกที่ผ่านมัน:

sub MAIN($_ is copy){
  s:g/<[0..9]>/{(0..$/).join}/;
  s:g/<[a..z]>/{('a'..~$/).join}/;
  s:g/<[A..Z]>/{('A'..~$/).join}/;
  .say
}

sub MAIN($_ is copy){s:g/<[0..9]>/{(0..$/).join}/;s:g/<[a..z]>/{('a'..~$/).join}/;s:g/<[A..Z]>/{('A'..~$/).join}/;.say}

119

ใช้.transในการที่จะลบ$_is copy

sub MAIN($_){
  .trans(
    /\d/       => {(0..$/).join},
    /<[a..z]>/ => {('a'..~$/).join},
    /<[A..Z]>/ => {('A'..~$/).join}
  ).say
}

sub MAIN($_){.trans(/\d/=>{(0..$/).join},/<[a..z]>/=>{('a'..~$/).join},/<[A..Z]>/=>{('A'..~$/).join}).say}

106

ดำเนินการ@*ARGSโดยตรงแทนที่จะกำหนดMAINย่อย
(ตรงกันข้ามกับตัวอย่างก่อนหน้านี้)

@*ARGS[0].trans(/\d/=>{(0..$/).join},/<[a..z]>/=>{('a'..~$/).join},/<[A..Z]>/=>{('A'..~$/).join}).say

101

สกาลา, 111 91 ไบต์

val f=(_:String).flatMap(x=>if(x.isDigit)('0'to x)else if(x.isUpper)('A'to x)else('a'to x))

Julia, 102 98 90 84 ไบต์

s->join([(i=Int(c);join(map(Char,(64<c<91?65:96<c<123?97:47<c<58?48:i):i)))for c=s])

สิ่งนี้จะสร้างฟังก์ชั่นที่ไม่มีชื่อที่ยอมรับสตริงและส่งคืนสตริง

Ungolfed:

function f(s::AbstractString)
    # For each character in the input, get the codepoint and construct
    # a range of codepoints from the appropriate starting character to
    # the current character, convert these to characters, and join them
    # into a string
    x = [(i = Int(c);
          join(map(Char, (isupper(c) ? 65 :
                          islower(c) ? 97 :
                          isdigit(c) ? 48 : i):i))
         ) for c in s]

    # Join the array of strings into a single string
    return join(x)
end

PowerShell, 155 ไบต์

($args-split''|%{$b=$_;switch([int][char]$_){{$_-in(65..90)}{[char[]](65..$_)}{$_-in(97..122)}{[char[]](97..$_)}{$_-in(48..57)}{0..$b}default{$b}}})-join''

เทคนิคหนึ่งซับและ PowerShell คือทั้งหมดที่เกี่ยวกับ ;-)

แบ่งอินพุต, ไพพ์ที่เป็นForEach-Objectลูป, เปิดสวิตช์ค่าจำนวนเต็มของอักขระคาสต์จากนั้นสร้างช่วงใหม่char[]ที่เหมาะสม โปรดทราบว่าเราต้องใช้ไบต์เพื่อตั้งค่าตัวแปร temp $bเนื่องจากการส่งสัญญาณ$_ในคำสั่ง switch หมายความว่าเราไม่สามารถใช้ต่อไปได้$_หรือเราจะได้ผลลัพธ์ที่ขี้ขลาด

แก้ไข - ฉันควรชี้ให้เห็นว่าสิ่งนี้จะทำให้เกิดข้อผิดพลาดเนื่องจากวัตถุแรกที่ป้อนเข้า%{...}เป็นวัตถุว่าง เนื่องจาก STDERR ถูกละเว้นโดยค่าเริ่มต้นนี่จึงไม่น่าเป็นปัญหา หากเป็นปัญหาให้เปลี่ยนบิตแรกเป็น($args-split''-ne''|...กำจัดวัตถุว่าง

JavaScript (ES6), 340 258 273 271 ไบต์

a=s=>{s=s.split``;Q=x=>x.toUpperCase();A="ABCDEFGHIJKLMNOPQRSTUVWXYZ";D="0123456789";f="";for(i=0;i<s.length;i++){j=s[i];c="to"+(Q(j)==j?"Upper":"Lower")+"Case";j=Q(j);if(q=A.search(j)+1)f+=g=A.slice(0,q)[c]();else if(q=D.search(j)+1)f+=g=D.slice(0,q);else f+=j}return f}

C (269 ไบต์)

(เพิ่มตัวแบ่งบรรทัดเพื่อความชัดเจน)

#include<stdio.h>
#define F(x,y,z)if(c>=T[0][x]&&c<=T[1][y]){z}
#define L(x,y)for(i=0;i<x;++i){y}
main(){int c,i,n;char o,*T[]={"0Aa","9Zz"};while((c=getchar())!=EOF)
{F(0,2,L(3,F(i,i,o=T[0][i],n=++c-o;L(n,putchar(o++));break;))else putchar(c);)}}

Ungolfed

#include<stdio.h>
int main(void)
{
  int c, i, n;
  char output;
  char *char_table[] = {"0Aa", "9Zz"};

  while ((c = getchar()) != EOF) {
    if (c < '0' || c > 'z') {
      putchar(c);
    } else {
      for (i = 0; i < 3; ++i) {
        if (c >= char_table[0][i] && c <= char_table[1][i]) {
          output = char_table[0][1];
          n = c - output;
          break;
        }
      }
      for (i = 0; i <= n; ++i) {
        putchar(output);
        ++output;
      }
    }
  }
  return(0);
}

Perl 5 , 66 61 (51 Bytes + 1) 52

การรวม regexes กับตัวดำเนินการตามเงื่อนไขทำงานได้ดีในกรณีนี้
ด้วยการเข้าร่วมใช้แผนที่เพื่อรวมช่วงเป็นอาร์เรย์

say map{(/\d/?0:/[A-Z]/?A:/[a-z]/?a:$_)..$_}split//

ทดสอบ

$ echo "A0C1.a3c_2!" |perl -M5.010 -n count_and_spell_up.pl
A0ABC01.a0123abc_012!

คำอธิบาย

say                # print output
  map{             # loop through the array that's at the end of the other mustache. 
                   # outputs an array. 
     (
        /\d/?0            # if $_ is a digit then 0
          :/[A-Z]/?A      # else, if it's an uppercase character then A
             :/[a-z]/?a   # else, if it's a lowercase character then a
               :$_        # else the current character
     )..$_         # generate a sequenced string of characters 
                   # that ends with the magic variable $_ 
                   # ($_ is currently a character from the array)
  }split//     # split the magic variable $_ (currently the input string)
               # to an array of characters

JavaScript (ES7), 125 ไบต์

มีคำตอบ JS สองข้อที่ให้ความสำคัญกับการเข้ารหัสสตริงดังนั้นฉันจึงตัดสินใจใช้วิธีอัลกอริธึมเพิ่มเติมโดยใช้String.fromCharCode():

x=>x.replace(/[^\W_]/g,z=>(c=z.charCodeAt(),f=c<65?48:c<97?65:97,String.fromCharCode(...[for(i of Array(c-f).keys())i+f])+z))

โบนัสของการใช้วิธีนี้คือใช้รหัสของถ่านจำนวนใด ๆ ดังนั้นจึงjoinไม่จำเป็นต้องมีรายการ สิ่งนี้สั้นกว่าเทคนิคอื่น ๆ ดังนั้นฉันจึงพอใจกับผลลัพธ์

MUMPS, 131 ไบต์

u(l,h) i l'>a,a'>h f j=l:1:a s o=o_$C(j),f=0
    q
t(s) f i=1:1:$L(s) s a=$A(s,i),f=1 d u(48,57),u(65,90),u(97,122) s:f o=o_$C(a)
    q o

ฉันไม่จัดการเพื่อประหยัดไม่กี่ไบต์ที่ดีที่นี่ต้องขอบคุณคางทูมของการกำหนดขอบเขตแบบไดนามิก นี่เป็นรุ่น ungolfed ประมาณเทียบเท่าซึ่งผมแน่ใจว่าจะรักจะไฮไลท์ไวยากรณ์ถ้าเพียง แต่การสนับสนุนสำหรับโมดูลคางทูมเสริมสวยที่มีอยู่

convert(str) ;
    new asciiCode,flag,i,output
    for i=1:1:$LENGTH(str) do
    . set asciiCode=$ASCII(str,i)
    . set flag=1
    . do helper(48,57)
    . do helper(65,90)
    . do helper(97,122)
    . if 'flag do
    . . set output=output_$CHAR(asciiCode)
    quit
helper(low,high) ;
    if low'>asciiCode,asciiCode'>high do
    . for code=low:1:asciiCode do
    . . set output=output_$CHAR(code)
    . . set flag=0
    quit

Perl 6, 78 77 ไบต์

@*ARGS[0].trans(/\d/=>{[~] 0..$/},/<:L>/=>{[~] samecase("a",~$/)..~$/}).say

Mathematica, 102 ไบต์

FromCharacterCode@Flatten[Which[64<#<91,65,96<#<123,97,47<#<58,48,1>0,#]~Range~#&/@ToCharacterCode@#]&

โอ้ดี ...

CJam, 32 31 ไบต์

q_'[,_el^A,s+26/ff{_@#)<}:s\.e|

ลองใช้ออนไลน์ในล่าม CJam

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

q_    e# Push two copies of the user input.
'[,   e# Push the string of all ASCII characters up to Z.
_el   e# Push a copy and convert it to lowercase.
^     e# Perform symmetric difference this keeps only letters.
A,s+  e# Append the string "0123456789".
26/   e# Split the result into chunks of length 26.
ff{   e# For each character from input: For each chunk:
  _@  e#   Copy the chunk and rotate the character on top of it.
  #   e#   Push the index of the character in the string (-1 for not found).
  )<  e#   Increment and keep that many characters from the left of the chunk.
      e#   This pushes "" for index -1.
}
:s    e# Flatten the resulting arrays of strings.
      e# The results will be empty strings iff the character wan't alphanumeric.
\     e# Swap the result with the input string.
.e|   e# Perform vectorized logical OR.

Python 2, 135 117 ไบต์

s=''
for c in raw_input():
 b=ord(c);e=b+1
 if c.isalnum():
  b=max(b&96,47)+1
 for i in range(b,e):s+=chr(i)
print s

PHP - 291 ไบต์

GET["s"]ผ่านสายไป

<?php $s=$_GET["s"];$m="array_map";echo implode($m(function($v){$i="in_array";$l="implode";$r="range";global$m;$a=ord($v);if($i($a,$r(48,57)))$v=$l($m("chr",$r(48,$a)));if($i($a,$r(65,90)))$v=$l($m("chr",$r(65,$a)));if($i($a,$r(97,122)))$v=$l($m("chr",$r(97,$a)));return$v;},str_split($s)));

C #, 251 201 184 157 154 ไบต์

using System;class c{static void Main(string[] i){foreach(var c in i[0])for(var x=c>64&c<91?'A':c>96&c<123?'a':c>47&c<58?'0':c;x<=c;)Console.Write(x++);}}

แก้ไข: Strike! สั้นกว่า PowerShell;)