ย้อนกลับและกลับสตริง


27

ย้อนกลับและกลับสตริง

ท้าทาย

ในการท้าทายนี้ คุณจะเขียนโปรแกรมที่จะส่งออกหรือกลับเข้า, ย้อนกลับและกลับ

ขั้นแรกให้เปลี่ยนอักขระแต่ละตัวเป็นรหัสอักขระ จากนั้นควรแปลงเป็น base-2 ต่อไปนี้สตริงที่ควรย้อนกลับ หลังจากนั้นสตริงควรกลับด้าน (1 -> 0 และ 0 -> 1) สุดท้ายนี้ควรแปลงกลับเป็นฐาน 2 แล้วแปลงกลับเป็นอักขระ หากตัวละครเป็นผลลัพธ์ที่ไม่สามารถพิมพ์ได้คุณอาจเลือกที่จะเอาท์พุท แต่ไม่จำเป็นต้องลบออก

H -> 72  -> 1001000 -> 0001001 -> 1110110 -> 118 -> v
e -> 101 -> 1100101 -> 1010011 -> 0101100 -> 44  -> ,
l -> 108 -> 1101100 -> 0011011 -> 1100100 -> 100 -> d
l -> 108 -> 1101100 -> 0011011 -> 1100100 -> 100 -> d
o -> 111 -> 1101111 -> 1111011 -> 0000100 -> 4   -> (unprintable)
, -> 44  -> 101100  -> 001101  -> 110010  -> 50  -> 2
  -> 32  -> 100000  -> 000001  -> 111110  -> 62  -> >
W -> 87  -> 1010111 -> 1110101 -> 0001010 -> 10  -> (newline)
o -> 111 -> 1101111 -> 1111011 -> 0000100 -> 4   -> (unprintable)
r -> 114 -> 1110010 -> 0100111 -> 1011000 -> 88  -> X
l -> 108 -> 1101100 -> 0011011 -> 1100100 -> 100 -> d
d -> 100 -> 1100100 -> 0010011 -> 1101100 -> 108 -> l
! -> 33  -> 100001  -> 100001  -> 011110  -> 30  -> (unprintable)

เกณฑ์การให้คะแนน

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

-15% โบนัส:ถ้าโปรแกรมของคุณลบ un-printables ออกจาก output ต้องมีอักขระอย่างน้อย 32 ตัวยกเว้นบรรทัดใหม่ (อักขระ 10 ตัว)


ฉันต้องล่าม Simplex ของฉันให้ทำงานอีกครั้ง XDGBktnkZs
Conor O'Brien

ดังนั้นตัวละครในสตริงจึงไม่กลับด้าน แต่บิตในแต่ละตัวคือ?
xnor

เพื่อให้แน่ใจว่า: สำหรับ 00,10000 เป็นบิตย้อนกลับ 0000100 หรือ 00001
Digital Trauma

@DigitalTrauma ถ้ารหัสไบนารี0010000มันควรได้รับการปฏิบัติ10000เพื่อให้ย้อนกลับจะเป็น00001
Downgoat

2
เราสามารถสมมติแค่ ASCII (เป็นตัวอย่างของคุณ) หรือสิ่งนี้จะใช้ได้กับตัวละครในภาษาของฉันหรือไม่? (นอกจากนี้หากภาษาใช้รหัสอักขระที่แตกต่างกันฉันควรใช้สิ่งนี้แทน ASCII / Unicode) หรือไม่
Paŭlo Ebermann

คำตอบ:


4

CJam, 14

q{i2bW%:!2bc}%

ลองออนไลน์

คำอธิบาย:

ตรงไปตรงมาสวย:

q       read input
{…}%    convert each character
  i     convert to number
  2b    convert to base 2 (digit array)
  W%    reverse
  :!    invert each digit
  2b    convert from base 2
  c     convert to character

รุ่น "พิมพ์ได้", 20 - 15% = 17

q{i2bW%:!2bc' ,N--}%

Dangit คุณ ฉันเพิ่งจะโพสต์คำตอบ CJam D:
anOKsquirrel

@anOKsquirrel ขอโทษ ^^ มันคล้ายกันไหม?
aditsu

คงจะเป็นอย่างนั้นถ้าฉันทำเสร็จ
anOKsquirrel

W% ทำงานอย่างไร W คือ -1 ดังนั้น ...
anOKsquirrel

1
@anOKsquirrel ดูเอกสารที่นี่
aditsu

9

Pyth, 14 ไบต์

smCi!M_jCd2 2z

ลองออนไลน์

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

 m           z  Map over the input with lambda d:
        Cd        Cast d to character.
       j  2       Convert to base 2.
      _           Reverse the resulting array.
    !M            Mapped logical NOT.
   i        2     Convert back to integer.
  C               Cast to character.
s               Concatenate the resulting characters.

2
โซลูชันทางเลือก (ทั้งหมด 14 ไบต์):smCi!MvM_.Bd2z smCi.r_.Bd`T2z smCiqR\0_.Bd2z
Dennis

วิธีการเกี่ยวกับรุ่นที่ลบ unprintables เพียงแค่สนใจ / สำหรับการเปรียบเทียบ อาจเป็นคำตอบแยกต่างหาก
hyde

8

Perl, 57 51 ตัวอักษร

(รหัส 50 ตัวอักษร + ตัวเลือกบรรทัดคำสั่ง 1 ตัวอักษร)

s/./$_=unpack b8,$&;s|0+$||;"chr 0b".y|10|01|r/gee

วิ่งตัวอย่าง:

bash-4.3$ perl -pe 's/./$_=unpack b8,$&;s|0+$||;"chr 0b".y|10|01|r/gee' <<< 'Hello, World!'
v,dd2>
Xdl

bash-4.3$ perl -pe 's/./$_=unpack b8,$&;s|0+$||;"chr 0b".y|10|01|r/gee' <<< 'Hello, World!' | od -tad1
0000000    v    ,    d    d  eot    2    >   nl  eot    X    d    l   rs   nl
         118   44  100  100    4   50   62   10    4   88  100  108   30   10
0000016

1
51 -p s/./$_=unpack b8,$&;s|0+$||;"chr 0b".y|10|01|r/geeไบต์: unpack b8,$&สั้นกว่าsprintf'%b',ord$&และถอดรหัสเพิ่มเติมในลำดับย้อนกลับ น่าเสียดายที่มันยังผลิต 0 ต่อท้ายซึ่งจำเป็นต้องลบออก
โม่

ขอบคุณ @primo unpackยังไม่ได้สำรวจภูมิประเทศสำหรับฉัน
จัดการ

42 -p s/./"chr 0b".unpack(b8,~$&)=~s|1+$||r/geeไบต์: กลับตัวละครไม่จำเป็นต้องถอดความ);
โม่

7

JavaScript ( ES6 ES7), 119 114 108 ไบต์

นี่เป็นวิธีที่นานกว่าที่คาด :(

ขอบคุณ @vihan สำหรับบันทึก 5 ไบต์! ขอบคุณ @ETHProductions สำหรับบันทึกอีก 6 ไบต์!

วิธีทดสอบ:  เรียกใช้ตัวอย่างข้อมูลด้านล่างป้อนอินพุตเช่น"Hello, World!"และคลิกทดสอบ!

x=>String.fromCharCode(...[for(y of x)+('0b'+[...y.charCodeAt().toString(2)].reverse().map(z=>z^1).join``)])
<!--                               Try the test suite below!                              --><strong id="bytecount" style="display:inline; font-size:32px; font-family:Helvetica"></strong><strong id="bytediff" style="display:inline; margin-left:10px; font-size:32px; font-family:Helvetica; color:lightgray"></strong><br><br><pre style="margin:0">Code:</pre><textarea id="textbox" style="margin-top:5px; margin-bottom:5px"></textarea><br><pre style="margin:0">Input:</pre><textarea id="inputbox" style="margin-top:5px; margin-bottom:5px"></textarea><br><button id="testbtn">Test!</button><button id="resetbtn">Reset</button><br><p><strong id="origheader" style="font-family:Helvetica; display:none">Original Code Output:</strong><p><div id="origoutput" style="margin-left:15px"></div><p><strong id="newheader" style="font-family:Helvetica; display:none">New Code Output:</strong><p><div id="newoutput" style="margin-left:15px"></div><script type="text/javascript" id="golfsnippet">var bytecount=document.getElementById("bytecount");var bytediff=document.getElementById("bytediff");var textbox=document.getElementById("textbox");var inputbox=document.getElementById("inputbox");var testbtn=document.getElementById("testbtn");var resetbtn=document.getElementById("resetbtn");var origheader=document.getElementById("origheader");var newheader=document.getElementById("newheader");var origoutput=document.getElementById("origoutput");var newoutput=document.getElementById("newoutput");textbox.style.width=inputbox.style.width=window.innerWidth-50+"px";var _originalCode=null;function getOriginalCode(){if(_originalCode!=null)return _originalCode;var allScripts=document.getElementsByTagName("script");for(var i=0;i<allScripts.length;i++){var script=allScripts[i];if(script.id!="golfsnippet"){originalCode=script.textContent.trim();return originalCode}}}function getNewCode(){return textbox.value.trim()}function getInput(){try{var inputText=inputbox.value.trim();var input=eval("["+inputText+"]");return input}catch(e){return null}}function setTextbox(s){textbox.value=s;onTextboxChange()}function setOutput(output,s){output.innerHTML=s}function addOutput(output,data){output.innerHTML+='<pre style="background-color:'+(data.type=="err"?"lightcoral":"lightgray")+'">'+escape(data.content)+"</pre>"}function getByteCount(s){return(new Blob([s],{encoding:"UTF-8",type:"text/plain;charset=UTF-8"})).size}function onTextboxChange(){var newLength=getByteCount(getNewCode());var oldLength=getByteCount(getOriginalCode());bytecount.innerHTML=newLength+" bytes";var diff=newLength-oldLength;if(diff>0){bytediff.innerHTML="(+"+diff+")";bytediff.style.color="lightcoral"}else if(diff<0){bytediff.innerHTML="("+diff+")";bytediff.style.color="lightgreen"}else{bytediff.innerHTML="("+diff+")";bytediff.style.color="lightgray"}}function onTestBtn(evt){origheader.style.display="inline";newheader.style.display="inline";setOutput(newoutput,"");setOutput(origoutput,"");var input=getInput();if(input===null){addOutput(origoutput,{type:"err",content:"Input is malformed. Using no input."});addOutput(newoutput,{type:"err",content:"Input is malformed. Using no input."});input=[]}doInterpret(getNewCode(),input,function(data){addOutput(newoutput,data)});doInterpret(getOriginalCode(),input,function(data){addOutput(origoutput,data)});evt.stopPropagation();return false}function onResetBtn(evt){setTextbox(getOriginalCode());origheader.style.display="none";newheader.style.display="none";setOutput(origoutput,"");setOutput(newoutput,"")}function escape(s){return s.toString().replace(/&/g,"&amp;").replace(/</g,"&lt;").replace(/>/g,"&gt;")}window.alert=function(){};window.prompt=function(){};function doInterpret(code,input,cb){var workerCode=interpret.toString()+";function stdout(s){ self.postMessage( {'type': 'out', 'content': s} ); }"+" function stderr(s){ self.postMessage( {'type': 'err', 'content': s} ); }"+" function kill(){ self.close(); }"+" self.addEventListener('message', function(msg){ interpret(msg.data.code, msg.data.input); });";var interpreter=new Worker(URL.createObjectURL(new Blob([workerCode])));interpreter.addEventListener("message",function(msg){cb(msg.data)});interpreter.postMessage({"code":code,"input":input});setTimeout(function(){interpreter.terminate()},1E4)}setTimeout(function(){getOriginalCode();textbox.addEventListener("input",onTextboxChange);testbtn.addEventListener("click",onTestBtn);resetbtn.addEventListener("click",onResetBtn);setTextbox(getOriginalCode())},100);function interpret(code,input){window={};alert=function(s){stdout(s)};window.alert=alert;console.log=alert;prompt=function(s){if(input.length<1)stderr("not enough input");else{var nextInput=input[0];input=input.slice(1);return nextInput.toString()}};window.prompt=prompt;(function(){try{var evalResult=eval(code);if(typeof evalResult=="function"){var callResult=evalResult.apply(this,input);if(typeof callResult!="undefined")stdout(callResult)}}catch(e){stderr(e.message)}})()};</script>


ฉันคิดว่าคุณสามารถบันทึก 4 ไบต์แทนที่parseIntด้วย+('0b'+<code>)ตามที่อธิบายไว้ที่นี่และอีกหนึ่งโดยใช้w^1แทน+!+w
Downgoat

2
ฉันไม่เคยคิดว่าจะเป็นไปได้ แต่ฉันเพิ่งเล่นกอล์ฟ. 05 ไบต์ : x=>String.fromCharCode(...[for(y of x)if((c=+('0b'+[...y.charCodeAt().toString(2)].reverse().map(z=>z^1).join``)) >31||c==10)c])(127 - 15% = 107.95) บางทีนี่อาจไม่ถูกกฎหมาย แต่; มันจับเพียงไม่10 == \n 13 == \r@ Vɪʜᴀɴความคิดเห็นของคุณคืออะไร?
ETHproductions

1
ฉันได้รับUnexpected token '>'เมื่อฉันพยายามเรียกใช้ข้อมูลโค้ด
Paul R

1
@ETHproductions: ขอบคุณ - ฉันมี Safari และ Chrome เพื่อส่งมอบเท่านั้นและฉันคิดว่าสิ่งเหล่านี้ไม่สอดคล้องกับ "ES6-compliant"
Paul R

1
@PaulR ES6 หรือ ECMAScript 6 เป็นหนึ่งในชุดคุณสมบัติใหม่ล่าสุดสำหรับ JavaScript ดูเว็บไซต์นี้สำหรับข้อมูลเพิ่มเติม นอกจากนี้ยังมีตารางความเข้ากันได้ที่แสดงคุณลักษณะที่เบราว์เซอร์สนับสนุน (และโปรแกรมอื่น ๆ ) คำตอบนี้จำเป็นต้องมี "ฟังก์ชั่นลูกศร", "สเปรดโอเปอเรเตอร์" และ "ความเข้าใจของอาเรย์" ของ ES7
ETHproductions

5

JavaScript (ES7), 126 ไบต์ - 15% = 107.1

ฉันเล่นรอบกับคำตอบนี้เพื่อดูว่าโบนัสคุ้มค่าหรือไม่ เห็นได้ชัดว่ามันเป็น ชุดทดสอบถูกขโมยไปจากคำตอบเดียวกัน แต่ฉันเพิ่มการบิดของตัวเอง: การสนับสนุนอย่างเต็มที่ของโบนัส 15%! :)

x=>String.fromCharCode(...[for(y of x)if((c=+('0b'+[...y.charCodeAt().toString(2)].reverse().map(z=>z^1).join``))>31|c==10)c])
<!--                               Try the test suite below!                              --><strong id="bytecount" style="display:inline; font-size:32px; font-family:Helvetica"></strong><strong id="bytediff" style="display:inline; margin-left:10px; font-size:32px; font-family:Helvetica; color:lightgray"></strong><br><strong id="score" style="display:inline; font-size:32px; font-family:Helvetica">Score:</strong><strong id="scorediff" style="display:inline; margin-left:10px; font-size:32px; font-family:Helvetica; color:lightgray"></strong><br><br><pre style="margin:0">Code:</pre><textarea id="textbox" style="margin-top:5px; margin-bottom:5px"></textarea><br><pre style="margin:0">Input:</pre><textarea id="inputbox" style="margin-top:5px; margin-bottom:5px">"Hello, World!"</textarea><br><button id="testbtn">Test!</button><button id="resetbtn">Reset</button><br><p><strong id="origheader" style="font-family:Helvetica; display:none">Original Code Output:</strong><p><div id="origoutput" style="margin-left:15px"></div><p><strong id="newheader" style="font-family:Helvetica; display:none">New Code Output:</strong><p><div id="newoutput" style="margin-left:15px"></div><script type="text/javascript" id="golfsnippet">var bytecount=document.getElementById("bytecount");var bytediff=document.getElementById("bytediff");var score=document.getElementById("score");var scorediff=document.getElementById("scorediff");var textbox=document.getElementById("textbox");var inputbox=document.getElementById("inputbox");var testbtn=document.getElementById("testbtn");var resetbtn=document.getElementById("resetbtn");var origheader=document.getElementById("origheader");var newheader=document.getElementById("newheader");var origoutput=document.getElementById("origoutput");var newoutput=document.getElementById("newoutput");textbox.style.width=inputbox.style.width=window.innerWidth-50+"px";var _originalCode=null;function getOriginalCode(){if(_originalCode!=null)return _originalCode;var allScripts=document.getElementsByTagName("script");for(var i=0;i<allScripts.length;i++){var script=allScripts[i];if(script.id!="golfsnippet"){originalCode=script.textContent.trim();return originalCode}}}function getNewCode(){return textbox.value.trim()}function getInput(){try{var inputText=inputbox.value.trim();var input=eval("["+inputText+"]");return input}catch(e){return null}}function setTextbox(s){textbox.value=s;onTextboxChange()}function setOutput(output,s){output.innerHTML=s}function addOutput(output,data){output.innerHTML+='<pre style="background-color:'+(data.type=="err"?"lightcoral":"lightgray")+'">'+escape(data.content)+"</pre>"}function getByteCount(s){return(new Blob([s],{encoding:"UTF-8",type:"text/plain;charset=UTF-8"})).size}function getScore(s){var a=1;try{b=eval('('+s+')("Hello, World!")');if(b=="v,dd2>\nXdl")a=.85}catch(e){};return getByteCount(s)*a}function onTextboxChange(){var newLength=getByteCount(getNewCode());var oldLength=getByteCount(getOriginalCode());bytecount.innerHTML=newLength+" bytes";var diff=newLength-oldLength;if(diff>0){bytediff.innerHTML="(+"+diff+")";bytediff.style.color="lightcoral"}else if(diff<0){bytediff.innerHTML="("+diff+")";bytediff.style.color="lightgreen"}else{bytediff.innerHTML="("+diff+")";bytediff.style.color="lightgray"}newLength=getScore(getNewCode());var oldLength=getScore(getOriginalCode());score.innerHTML="Score: "+newLength;var diff=Math.round((newLength-oldLength)*100)/100;if(diff>0){scorediff.innerHTML="(+"+diff+")";scorediff.style.color="lightcoral"}else if(diff<0){scorediff.innerHTML="("+diff+")";scorediff.style.color="lightgreen"}else{scorediff.innerHTML="("+diff+")";scorediff.style.color="lightgray"}}function onTestBtn(evt){origheader.style.display="inline";newheader.style.display="inline";setOutput(newoutput,"");setOutput(origoutput,"");var input=getInput();if(input===null){addOutput(origoutput,{type:"err",content:"Input is malformed. Using no input."});addOutput(newoutput,{type:"err",content:"Input is malformed. Using no input."});input=[]}doInterpret(getNewCode(),input,function(data){addOutput(newoutput,data)});doInterpret(getOriginalCode(),input,function(data){addOutput(origoutput,data)});evt.stopPropagation();return false}function onResetBtn(evt){setTextbox(getOriginalCode());origheader.style.display="none";newheader.style.display="none";setOutput(origoutput,"");setOutput(newoutput,"")}function escape(s){return s.toString().replace(/&/g,"&amp;").replace(/</g,"&lt;").replace(/>/g,"&gt;")}window.alert=function(){};window.prompt=function(){};function doInterpret(code,input,cb){var workerCode=interpret.toString()+";function stdout(s){ self.postMessage( {'type': 'out', 'content': s} ); }"+" function stderr(s){ self.postMessage( {'type': 'err', 'content': s} ); }"+" function kill(){ self.close(); }"+" self.addEventListener('message', function(msg){ interpret(msg.data.code, msg.data.input); });";var interpreter=new Worker(URL.createObjectURL(new Blob([workerCode])));interpreter.addEventListener("message",function(msg){cb(msg.data)});interpreter.postMessage({"code":code,"input":input});setTimeout(function(){interpreter.terminate()},1E4)}setTimeout(function(){getOriginalCode();textbox.addEventListener("input",onTextboxChange);testbtn.addEventListener("click",onTestBtn);resetbtn.addEventListener("click",onResetBtn);setTextbox(getOriginalCode())},100);function interpret(code,input){window={};alert=function(s){stdout(s)};window.alert=alert;console.log=alert;prompt=function(s){if(input.length<1)stderr("not enough input");else{var nextInput=input[0];input=input.slice(1);return nextInput.toString()}};window.prompt=prompt;(function(){try{var evalResult=eval(code);if(typeof evalResult=="function"){var callResult=evalResult.apply(this,input);if(typeof callResult!="undefined")stdout(callResult)}}catch(e){stderr(e.message)}})()};</script>


การดัดแปลงตัวอย่างการทดสอบที่ยอดเยี่ยม! ดูเหมือนว่าตอนนี้ตัวอย่างจะตรวจสอบโบนัสโดยอัตโนมัติฉันขอถามคุณได้อย่างไร (PS ถ้าคุณต้องการที่เดิม (ไม่ได้อยู่ในหนึ่งบรรทัด) แหล่งที่มาของความรู้สึกอิสระที่จะถามอาจจะง่ายในการปรับเปลี่ยนวิธีการที่)
jrich

@ กำหนดขั้นสูงฟังก์ชั่นโอ้ขอโทษที่ไม่ได้ตอบทันที! ฉันเพิ่มgetScore()ฟังก์ชั่นที่ตรวจสอบกรณีทดสอบHello, World!เพื่อให้สอดคล้อง (มีทั้งตัวขึ้นบรรทัดใหม่และตัวอักษรที่ไม่สามารถพิมพ์ออกมาได้) และส่งคืนคะแนนคูณด้วย 0.85 หรือ 1 ขึ้นอยู่กับผลลัพธ์ และใช่การเข้าถึงข้อมูลโค้ดที่ไม่ย่อเล็กสุดจะดีมาก :)
ETHproductions

ฉันได้วางโค้ดขนาดเล็กไว้ที่นี่แล้ว มีความสุข!
jrich

4

PHP - 187 182 163 ไบต์

<?php $s=$_GET["s"];$m="array_map";echo join($m("chr",$m("bindec",$m(function($v){return strtr($v,[1,0]);},$m("strrev",$m("decbin",$m("ord",str_split($s))))))));?>

GET["s"]ส่งค่าเป็น

array_map ส่งกลับอาร์เรย์ที่มีองค์ประกอบทั้งหมดของพารามิเตอร์ที่สอง (อาร์เรย์) หลังจากใช้ฟังก์ชั่นการโทรกลับ (พารามิเตอร์แรก) กับพวกเขาทั้งหมด

ไม่แน่ใจว่าฉันควรจะลดราคา 15% หรือechoไม่เพราะจะไม่แสดงอักขระที่ไม่สามารถพิมพ์ออกมาได้ แต่ฉันไม่ได้ลบออก

แค่ดีใจที่ฉันเสร็จเพราะนี่เป็นความท้าทายแรกที่ฉันมีส่วนร่วม


1
$m='array_map';echo join($m("chr",$m("bindec",$m(function($v){return strtr($v,[1,0]);},$m("strrev",$m("decbin",$m("ord",str_split($s))))))));สั้นถ้าคุณไม่ประกาศฟังก์ชั่นเหล่านั้น
จัดการ

@ manatwork ลืมไปโดยสิ้นเชิง ขอบคุณ
ไม่ได้กำหนด

คุณไม่สามารถใส่อินพุตในตัวแปร STDINคุณควรสร้างฟังก์ชั่นหรืออ่านข้อมูลจาก โดยวิธีการที่คุณไม่จำเป็นต้องใช้คำพูดรอบสตริง ( "chr", "bindec", ... ) เนื่องจากเราไม่ได้ดูแลเกี่ยวกับคำเตือน นั่นน่าจะช่วยให้คุณประหยัดได้ 12 ไบต์
Blackhole

@Blackhole ขอบคุณสำหรับข่าวสารที่ฉันจะรู้ว่าครั้งต่อไป
ไม่ได้กำหนด

คุณควรแก้ไขคำตอบนี้ซึ่งไม่ถูกต้อง :) มันจะทำให้คุณเสียค่าใช้จ่ายเกือบจะไม่มีไบต์เพียงแค่แทนที่str_split($s)ด้วยstr_split(fgets(STDIN))เช่น
Blackhole

3

K5, 28 ไบต์

`c${b/~|{x@&|\x}@(b:8#2)\x}'

สิ่งนี้ไม่สะดวกนักเนื่องจากdecodeผู้ดำเนินการของ K5 ทำการแปลงฐานความกว้างคงที่ดังนั้นเพื่อให้สอดคล้องกับคำแถลงปัญหาที่ฉันต้องตัดเลขศูนย์นำหน้า แลมบ์ดา{x@&|\x}ทำขั้นตอนนี้สำเร็จ

smear:

  |\0 0 1 0 1 1 0 1
0 0 1 1 1 1 1 1

รวบรวม:

  &|\0 0 1 0 1 1 0 1
2 3 4 5 6 7

เลือก:

  {x@&|\x}0 0 1 0 1 1 0 1
1 0 1 1 0 1

การทำงานของโปรแกรมทั้งหมด:

  `c${b/~|{x@&|\x}@(b:8#2)\x}'"Hello, World"
"v,dd2>\nXdl"

ผมเชื่อว่าตกลงพฤติกรรมตามธรรมชาติ 's กับ unprintables ทำให้มีสิทธิ์นี้ -15% ให้คะแนน 28 * 0.85 = นี้23.8


+1 เพราะฉันพยายาม แต่ไม่สามารถคิดออกวิธีสั้น ๆ เพื่อกำจัดเลขศูนย์นำหน้า!
kirbyfan64sos

การก่อสร้างที่เกี่ยวข้องไม่กี่สามารถพบได้ที่นี่
JohnE

3

Julia, 77 ไบต์ - 15% = 65.45

s->join(filter(isprint,[Char(parse(Int,join(1-digits(Int(c),2)),2))for c=s]))

สิ่งนี้จะสร้างฟังก์ชั่นที่ไม่ได้ตั้งชื่อซึ่งยอมรับสตริงและส่งคืนสตริง อักขระที่ไม่สามารถพิมพ์ออกจะถูกลบออกซึ่งมีคุณสมบัติตรงนี้เพื่อรับโบนัส

Ungolfed:

function f(s::AbstractString)
    # digits() returns the digits in reverse order, so no explicit
    # reverse() is needed
    x = [Char(parse(Int, join(1 - digits(Int(c), 2)), 2)) for c = s]

    # Remove unprintables, join into a string
    return join(filter(isprint, x))
end

แม้ว่ามันจะมีคุณสมบัติตรงตามที่กำหนดสำหรับโบนัส แต่ก็มีค่าใช้จ่ายมากกว่าโบนัสที่ประหยัดได้ 16 ไบต์ถึงfilter(isprint,)11.55 ไบต์เท่านั้นที่บันทึกผ่านโบนัส
เกลน O

และถ้าคุณเลิกขั้นตอนการกรองคุณสามารถหลีกเลี่ยงความเข้าใจและเข้าร่วมโดยใช้แผนที่โดยตรงบนสตริง s->map(c->Char(parse(Int,join(1-digits(Int(c),2)),2)),s)(สำหรับ 56 ไบต์)
เกลน O

@GlenO ขอขอบคุณสำหรับข้อเสนอแนะ แต่วิธีการนั้นยังคงอยู่ใน unprintables เป็นรหัสฐานสิบหกซึ่ง OP กล่าวว่าไม่ได้รับอนุญาต การใช้filter(isprint,)ทั้งสองมีคุณสมบัติเป็นโบนัสและทำให้สอดคล้องกับกฎ
Alex A.

"ถ้าตัวละครเป็นผลลัพธ์ที่ไม่สามารถพิมพ์ได้คุณอาจเลือกที่จะเอาท์พุท แต่ไม่จำเป็นต้องลบออก"
เกลน O

และถ้าความกังวลนั้นอยู่อีกด้านหนึ่งของมัน (แสดงให้เห็นว่ามันไม่\x04เหมือนใคร) ก็จะprint()เสียค่าใช้จ่ายเจ็ดซึ่งจะเพิ่ม 56 ถึง 63 ขึ้นไป
เกลน O

3

PowerShell, 199 175 (171 - 15%) = 145.35

param([char[]]$a)($a|%{$b=[convert]::ToString(+$_,2);$c=[convert]::ToInt32("$((-join$b[$b.Length..0])-split0-replace1,0-join1)",2);if($c-gt31-or$c-eq10){[char]$c}})-join''

ใช้การโทร / บิวด์อิน. NET จำนวนหนึ่งที่โชคไม่ดีซึ่งทำให้โค้ดมีความหมายมากขึ้น

อธิบาย:

รับอินพุตparam(..)และปลดเปลื้องมันchar[]เพื่อให้เราสามารถทำงานผ่านมันได้อย่างเหมาะสม

บิตถัดไป(..)-join''รวบรวมและรวมเอาท์พุทของเราเข้าด้วยกัน

ภายในคำอุปมาเหล่านั้นเราย้ำด้วย$a|%{..}เป็นวง foreach

ภายในวง:

  • เราสร้างสตริงใหม่$bซึ่งเป็นตัวอักษรของเราใส่เป็น int +$_และ[convert]ed ถึงฐาน2
  • การตั้งค่าบิตต่อไปนี้$cเป็นเรื่องยุ่งยากดังนั้นเรามาเริ่มกันข้างในและหาทางออก
  • เราย้อนกลับสตริง$bด้วย(-join$b[$b.length..0])
  • เราใช้ประโยชน์จากรหัสก่อนหน้าของฉันสำหรับการย้อนกลับสตริงไบนารีและสร้างผลลัพธ์ใหม่เป็นสตริงด้วย"$(..)"
  • เราให้อาหารสตริงที่เป็นโทร .NET แตกต่างกันที่[convert]s ToInt32จากฐาน2ซึ่งจะถูกเก็บไว้ในที่สุดที่เป็น$c
  • หาก$cมากกว่า31หรือเท่ากับ10เราโยนมันเป็น char และค่านั้นถูกทิ้งไว้บนไพพ์ไลน์สำหรับเอาท์พุท (ซึ่งเป็นสิ่งที่ได้รับการรวบรวมและ-join''รวมเข้าด้วยกันด้านบน) ไม่มีอะไรเหลืออยู่ในการทำซ้ำโดยเฉพาะนี้

วุ้ย.

มีสิทธิ์ได้รับโบนัส -15% เช่นกัน

ตัวอย่าง

PS C:\Tools\Scripts\golfing> .\reverse-and-invert-a-string.ps1 "Hello, World!"
v,dd2>
Xdl




1

MATLAB, 60 ไบต์

@(y)[arrayfun(@(x)bin2dec([97-fliplr(dec2bin(x)) '']),y) '']

โดยทั่วไปอักขระแต่ละตัวจะถูกแปลงเป็นสตริงไบนารี (โดยไม่มีศูนย์นำหน้า) อาร์เรย์ถูกพลิกและถูกลบออกจาก 97 ('0' + '1') ซึ่งสลับอักขระ สิ่งนี้ถูกแปลงกลับเป็นทศนิยม หลังจากประมวลผลอักขระทั้งหมดแล้วอาร์เรย์ทั้งหมดจะถูกแปลงกลับเป็นอักขระก่อนที่จะถูกส่งคืน


1

Python 3, 95 91

การใช้งานที่ไม่ซับซ้อน

print(''.join(chr(int(''.join('10'[j>'0']for j in bin(ord(i))[:1:-1]),2))for i in input()))

Ungolfed:

inp = input()
ints = (ord(i) for i in inp)
bins = (bin(i) for i in ints)
revs = (i[2:][::-1] for i in bins) #without leading '0b'
invs = (''.join('0' if j == '1' else '1' for j in i) for i in revs)
newInts = (int(i, 2) for i in invs)
newChars = (chr(i) for i in newInts)
newStr = ''.join(newChars)
print(newStr)

1

Ruby, 62 ตัวอักษร

gets.bytes{|b|$><<b.to_s(2).reverse.tr("01","10").to_i(2).chr}

Samply run:

bash-4.3$ ruby -e 'gets.bytes{|b|$><<b.to_s(2).reverse.tr("01","10").to_i(2).chr}' <<< 'Hello, World!'
v,dd2>
Xdl

bash-4.3$ ruby -e 'gets.bytes{|b|$><<b.to_s(2).reverse.tr("01","10").to_i(2).chr}' <<< 'Hello, World!' | od -tad1
0000000    v    ,    d    d  eot    2    >   nl  eot    X    d    l   rs   nl
         118   44  100  100    4   50   62   10    4   88  100  108   30   10
0000016

1

C #, 156 ไบต์ - 15% = 132.6

class P{static void Main(string[]a){try{for(int i=0,b,c;;){for(b=a[0][i++],c=0;b>0;b/=2)c=c<<1|1-b%2;if(c==10|c>31)System.Console.Write((char)c);}}catch{}}}

การเยื้องและบรรทัดใหม่เพื่อความชัดเจน:

class P{
    static void Main(string[]a){
        try{
            for(int i=0,b,c;;){
                for(b=a[0][i++],c=0;b>0;b/=2)
                    c=c<<1|1-b%2;
                if(c==10|c>31)
                    System.Console.Write((char)c);
            }
        }
        catch{}
    }
}

1

Javascript 123 ไบต์

s=>[].map.call(s,s=>String.fromCharCode("0b"+s.charCodeAt().toString(2).split('').reverse().map(s=>s^1).join(''))).join('')

1

เรติน่า1107 629 ไบต์ - 15% = 534.65 (ไม่แข่งขัน)

ใช้คุณสมบัติที่เพิ่มหลังจากวันที่ท้าทาย (พฤติกรรมของนัย$*, การเรียงลำดับ)

เรติน่าไม่มีบิวอินในการแปลงอักขระเป็น ASCII ตามลำดับหรือด้านหลัง ... ดังนั้นจงดูความยาวมันวาว สิ่งนี้จะจัดการกับ ASCII ที่พิมพ์ได้และลบสิ่งที่ไม่สามารถพิมพ์ได้เช่นเดียวกับการขึ้นบรรทัดใหม่ จำนวนไบต์ถือว่าการเข้ารหัส ISO 8859-1

รหัสประกอบด้วยอักขระที่ไม่สามารถพิมพ์ได้


¶
±
S_`
%(S`±
{2`
$`
}T01`-`_o
)Ms`.
\d+
$*
+`(1+)\1
${1}0
01
1
%O$^`.

T`01`10
1
01
+`10
011
0

m`^1{1,31}$

M%`1
m`^0¶?

126
~
125
}
124
|
123
{
122
z
121
y
120
x
119
w
118
v
117
u
116
t
115
s
114
r
113
q
112
p
111
o
110
n
109
m
108
l
107
k
106
j
105
i
104
h
103
g
102
f
101
e
100
d
99
c
98
b
97
a
96
`
95
_
94
^
93
]
92
\
91
[
90
Z
89
Y
88
X
87
W
86
V
85
U
84
T
83
S
82
R
81
Q
80
P
79
O
78
N
77
M
76
L
75
K
74
J
73
I
72
H
71
G
70
F
69
E
68
D
67
C
66
B
65
A
64
@
63
?
62
>
61
=
60
<
59
;
58
:
57
9
56
8
55
7
54
6
32

33
!
34
"
35
#
36
$
37
%
38
&
39
'
40
(
41
)
42
*
43
+
44
,
45
-
46
.
47
/
48
0
49
1
50
2
51
3
52
4
53
5
¶

ลองออนไลน์

หากคุณตรวจสอบการสอนแบบ Retina เกี่ยวกับเลขคณิตแบบ unaryคุณจะจำรหัสของฉันได้หลายส่วนว่ามาจากที่นั่น

ขอบคุณมาร์ตินสำหรับการตีกอล์ฟออกไปหลายร้อยไบต์


1

Java, 205 - 15% = 174.2

interface F{static void main(String[]a){for(int i=0,c,s;i<a[0].length();++i){c=a[0].charAt(i);s=Integer.numberOfLeadingZeros(c);c=~(Integer.reverse(c)>>s)&-1>>>s;if(c==10|c>31)System.out.print((char)c);}}}

Ungolfed:

interface F {
    static void main(String[] a) {
        for (int i = 0, c, s; i < a[0].length(); ++i) {
            c = a[0].charAt(i);
            s = Integer.numberOfLeadingZeros(c);
            c = ~(Integer.reverse(c) >> s) & -1 >>> s;
            if (c == 10 | c > 31) System.out.print((char)c);
        }
    }
}

ผมคิดว่าการแก้ปัญหานี้เป็นที่น่าสนใจบิตในการใช้งานของIntegerวิธีการInteger.reverseและInteger.numberOfLeadingZerosผู้ที่ทำสิ่งที่พวกเขาชอบเสียง, และการเปลี่ยนแปลงของ-1 >>> sที่sคือจำนวนของศูนย์ชั้นนำที่จะได้รับหน้ากากหน้ากากปิดบิตสูงที่เราไม่ต้องการ ฉันเสียใจที่ชื่อของวิธีการหลังนั้นช่างแสนวิเศษ แต่นั่นคือสิ่งที่ฉันได้รับจากการเล่นกอล์ฟใน Java

เอาท์พุท:

v,dd2>
Xdl

1

Japt 25 ไบต์

ต้องการที่จะสร้างโปรแกรมจาวาสคริปต์ แต่วิธีที่สั้นที่สุดเกี่ยวข้องกับชื่อฟังก์ชั่นมากมายใช่ไหม นั่นคือสิ่งที่ Japt ทำขึ้นมา :)

UmX=>Xc s2 w mY=>Y^1 n2 d

ลองใน ล่ามออนไลน์ !

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

         // Implicit: U = first item in input
UmX=>    // for each character X in U:
Xc s2 w  //  take the char-code of X, convert to binary, and reverse
mY=>     //  for each character Y in this:
Y^1      //   take Y XOR 1 (converts 1 to 0 and 0 to 1)
n2 d     //  convert the result back to decimal, then to a character
         // Implicit: output last expression

เมื่อใช้ Japt เวอร์ชั่นปัจจุบัน (ตั้งแต่ v1.4.4) จำนวนไบต์จะถูกตัดเป็น 14:

®c ¤w m^1 n2 d

ทดสอบออนไลน์!


0

Haskell, 167 ไบต์

import Data.Char
import Numeric
r '0'='1'
r '1'='0'
s=map (chr.fst.head.(readInt 2 (`elem` "01") digitToInt).(map r).reverse.flip (showIntAtBase 2 intToDigit . ord)"")

น่าเสียดายที่ Haskell ค่อนข้างละเอียดเมื่อต้องการอ่าน / พิมพ์ในฐานอื่น ...


0

Perl 6, 66 ไบต์

ออกไปข้างนอกด้วยการลบตัวควบคุมที่ไม่ได้พิมพ์ออกมาให้ฉัน (83 + 1) -15% = 71.4

perl6 -ne 'print grep /<-:C+[\n]>/,.ords».base(2)».flip.map({chr :2([~] $_.comb.map(+!+*))})'

หากฉันลบรหัสที่ตัดอักขระควบคุมออกฉันบันทึกได้ไม่น้อย 65 + 1 = 66

perl6 -ne 'print .ords».base(2)».flip.map({chr :2([~] $_.comb.map(+!+*))})'

(ฉันใช้»แทน>>เพื่อความชัดเจน)



0

แร็กเก็ต 250 โบนัส 15% = 212 ไบต์

(λ(s)(list->string(map integer->char(filter(λ(x)(or(> x 31)(= x 10)))(for/list((i(string->list s)))(string->number(string-append
"#b"(list->string(map(λ(i)(if(equal? #\0 i)#\1 #\0))(reverse(string->list(number->string(char->integer i)2))))))))))))

Ungolfed:

(define (f s)
    (list->string 
     (map 
      integer->char
      (filter
       (λ(x)(or(> x 31)(= x 10)))

       (for/list ((i (string->list s)))
         (string->number
          (string-append
           "#b"
           (list->string
            (map
             (λ(i)(if(equal? #\0 i) #\1 #\0))
             (reverse
              (string->list
               (number->string
                (char->integer i) 2)
               )))))))))))

การทดสอบ:

(f "Hello, World!")

เอาท์พุท:

"v,dd2>\nXdl"

0

PHP, 80 ไบต์

while(a&$c=$argn[$i++])echo chr(bindec(strtr(strrev(decbin(ord($c))),10,"01")));

รับอินพุตจาก STDIN; -Rทำงานด้วย

เวอร์ชันโบนัส97 110 ไบต์ -> 93.5 คะแนน

while(a&$c=$argn[$i++])ctype_print($c=chr(bindec(strtr(strrev(decbin(ord($c))),10,"01"))))||"
"==$c?print$c:0;

พิมพ์ ASCII 10 และ 32 ถึง 126 (ขึ้นบรรทัดใหม่และพิมพ์ได้)


พังทลาย TiO และถ้าเป็นไปได้บางกอล์ฟจะตามมา; ฉันเหนื่อยแล้ว

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.