กำหนดจำนวนเต็มทำนิพจน์ที่สร้างจากการ0ใช้การปฏิเสธแบบไม่รวม-และส่วนประกอบ bitwise ~( ~n= -n-1) โดยใช้ตัวดำเนินการจากขวาไปซ้าย

...
-3  = ~-~-~0
-2  = ~-~0
-1  = ~0
 0  = 0
 1  = -~0
 2  = -~-~0
 3  = -~-~-~0
...

การแสดงออกของคุณจะต้องสั้นที่สุดเท่าที่เป็นไปได้ซึ่งหมายความว่าไม่มีชิ้นส่วนที่ซ้ำซ้อน~~, --, หรือ-0 00เอาต์พุตหรือพิมพ์นิพจน์เป็นสตริงหรือลำดับของอักขระ

var QUESTION_ID=92598,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/92598/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>

Python ขนาด 32 ไบต์

lambda x:("-~"*abs(x))[x<0:]+"0"

ฟังก์ชั่นแลมบ์ดานิรนาม กำหนดจำนวนเต็ม x เขียน "- ~" abs (x) ครั้งและลบอักขระตัวแรกถ้า x เป็นค่าลบศูนย์จะถูกเพิ่มไปยังจุดสิ้นสุด

JavaScript (ES6), 33 31 ไบต์

f=x=>x<0?"~"+f(~x):x&&"-"+f(-x)

การเรียกซ้ำ <built-ins <ลูป (อย่างน้อยในกรณีนี้) โดยทั่วไปจะประเมินค่าอินพุต:

• ถ้ามันน้อยกว่า 0 ให้พลิกมันและเพิ่ม a ~เข้าไปในสตริง;
• ถ้ามันมากกว่า 0 ลบล้างมันและเพิ่ม a -เข้ากับสตริง;
• ถ้ามันคือ 0 ทั้งหมดคืน 0

ใช้ประโยชน์จากรูปแบบนี้:

 0         = 0
-1 = ~( 0) = ~0
+1 = -(-1) = -~0
-2 = ~(+1) = ~-~0
+2 = -(-2) = -~-~0
-3 = ~(+2) = ~-~-~0
+3 = -(-3) = -~-~-~0
etc.

Pyth, 14 13 12 ไบต์

_<>0Q+0sm"~-

-2 ไบต์ขอบคุณ @StevenH

ชุดทดสอบ

ตัดสินใจลองใช้ Pyth ดังนั้นฉันจึงแปลคำตอบของหลามออกมา ยินดีต้อนรับความช่วยเหลือใด ๆ !

คำอธิบาย:

_<>0Q+0sm"~-     
        m"~-     # Map "~-" onto the input (= a list of n times "~-").
       s         # Join the list to a string.
     +0          # Add "0" in front. 
 <>0Q            # Slice off the last char if the input is negative.
_                # Reverse the whole thing.

C, 46 ไบต์

m(x){putchar(x?x<0?126:45:48);x&&m(-x-(x<0));}

ต่างจากคำตอบอื่น ๆ ส่วนใหญ่ (ทั้งหมด?) อันนี้ส่งเอาต์พุตตัวดำเนินการ~และ-ทีละตัว

05AB1E , 14 13 ไบต์

Ä„-~×¹0‹i¦}0J

คำอธิบาย

 „-~           # the string "-~"
Ä   ×          # repeated abs(input) times
     ¹0‹i¦}    # if input is negative, remove the first char
           0J  # join with 0

ลองออนไลน์!

เรติน่า, 19 17 ไบต์

แทนที่หมายเลขด้วย unary ด้วยเลขศูนย์ที่จุดสิ้นสุด แทนที่แต่ละกับ1 -~ลบการลบสองครั้งหากมี

\d+
$*10
1
-~
--

ลองออนไลน์

กรณีทดสอบทั้งหมดในครั้งเดียว (โปรแกรมแก้ไขเล็กน้อยเพื่อรองรับกรณีทดสอบหลายรายการ)

Perl 38 35 33 (23 + 1 สำหรับ -p) 24

s/\d+/"-~"x$&.0/e;s;--;

-13 ขอบคุณ Dada

Dyalog APL ขนาด 18 ไบต์

'0',⍨0∘>↓'-~'⍴⍨2×|

'0',⍨ อักขระศูนย์ผนวกเข้ากับ

0∘> การปฏิเสธ (เช่น 1 สำหรับตัวเลขที่ต่ำกว่า 0; 0 สำหรับศูนย์ขึ้นไป)

↓ ลดลงจาก

'-~'⍴⍨ สตริง "~ -" เปลี่ยนรูปแบบวนตามความยาว

2× สองครั้ง

| ค่าสัมบูรณ์

+ บวก

0∘< ความเป็นบวก (เช่น 1 สำหรับตัวเลขที่มากกว่า 0)

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

Haskell, 41 ไบต์

f n=['-'|n>0]++(tail$[1..abs n]>>"-~")++"0"

f n|n<0=tail$f(-n)|x<-[1..n]>>"-~"=x++"0"

ขอบคุณ nimi สำหรับ 3 ไบต์

V , 21 ไบต์

/ä
é
D@"ña-~ñá0kgJó--

ลองออนไลน์!

วีได้มากจำกัด จำนวนการสนับสนุนและเป็นจริงมีแนวคิดของตัวเลขติดลบไม่ ซึ่งหมายความว่าเพื่อสนับสนุนเชิงลบ (หรือแม้แต่ 0) เราต้องใช้วิธีแก้ปัญหาแฮ็กบางอย่าง

คำอธิบาย:

/ä                  "Move forward to the first digit
é                   "And enter a newline
D                   "Delete this number, into register '"'
 @"                 "That number times:
   ñ   ñ            "Repeat the following:
    a               "  Append the string:
     -~             "  '-~'
        á0          "Append a 0
          k         "Move up a line
           gJ       "And join these two lines together
             ó--    "Remove the text '--', if it exists

JavaScript (ES6), 39 37 ไบต์

x=>"-~".repeat(x<0?-x:x).slice(x<0)+0

บันทึก 2 ไบต์ขอบคุณ @Neil

เยลลี่ 10 ไบต์

A⁾-~ẋḊẋ¡N0

นี่เป็นโปรแกรมเต็ม ลองออนไลน์!

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

A⁾-~ẋḊẋ¡N0  Main link. Argument: n

A           Take the absolute value of n.
 ⁾-~ẋ       Repeat the string "-~" that many times. Result: s
       ¡    Conditional application:
     Ḋ        Dequeue; remove the first element of s...
      ẋ N     if s, repeated -n times, is non-empty.
         0  Print the previous return value. Set the return value to 0.
            (implicit) Print the final return value.

Java 7, 95 79 ไบต์

79 ไบต์:

String s(int x){String t=x<0?"~":"";while((x<0?++x:x--)!=0)t+="-~";return t+0;}

Ungolfed:

String s(int x) {
    String t = x<0 ? "~" : "";
    while((x<0 ? ++x : x--) != 0)
        t += "-~";
    return t+0;
}

รุ่นเก่า (95 ไบต์):

String s(int x){return new String(new char[x<0?-x:x]).replace("\0","-~").substring(x<0?1:0)+0;}

การใช้งาน:

class A {
    public static void main(String[]a) {
        System.out.println(s(-3));
        System.out.println(s(-2));
        System.out.println(s(-1));
        System.out.println(s(0));
        System.out.println(s(1));
        System.out.println(s(2));
        System.out.println(s(3));
    }
    static String s(int x){String t=x<0?"~":"";while((x<0?++x:x--)!=0)t+="-~";return t+0;}
}

ลองที่นี่!

เอาท์พุท:

~-~-~0
~-~0
~0
0
-~0
-~-~0
-~-~-~0

Ruby, 34 ไบต์

->x{("-~"*x.abs+?0)[2[0<=>x]..-1]}

EXCEL: 55 33 ไบต์

=REPT("-~",IF(A1>0,A1,ABS(A1)-1))&"0"

อินพุตอยู่ในรูปแบบของการใส่ตัวเลขในเซลล์ A1 สูตรสามารถไปได้ทุกที่ยกเว้น A1

T-SQL, 87 ไบต์

select substring(replicate('-~',abs(x)),case when x<0then 2 else 1 end,x*x+1)+'0'from #

x*x+1เงื่อนไขในการย่อยก็เพียงพอเนื่องจากทั้งหมดx^2+1>=2*abs(x)x

ตามปกติใน SQL อินพุตจะถูกเก็บไว้ในตาราง:

create table # (x int)

insert into # values (0)
insert into # values (1)
insert into # values (-1)
insert into # values (2)
insert into # values (-2)

CJam , 18 14 ไบต์

รับแรงบันดาลใจจากคำตอบของ Emignaเพื่อประหยัด 4 ไบต์

li_z"-~"*\0<>0

ลองออนไลน์! (ในฐานะชุดทดสอบที่แยกบรรทัดด้วยฟีด)

คำอธิบาย

li      e# Read input and convert to integer N.
_z      e# Duplicate and get |N|.
"-~"*   e# Repeat this string |N| times.
\0<     e# Use the other copy of N to check if it's negative.
>       e# If so, discard the first '-'.
0       e# Put a 0 at the end.

Vim - 31 การกดแป้น

ครั้งแรกที่กลุ่มกอล์ฟพลาดอะไรมากมาย

`i-~<esc>:s/-\~-/\~-/dwp<left>ii<esc><left>d$@"<esc>a0`

Matlab, 61 ไบต์

x=input('');A=repmat('-~',1,abs(x));disp([A((x<0)+1:end) 48])

Pyke, 14 13 ไบต์

X,"-~"*Q0<>0+

ลองที่นี่!

Perl 6 , 25 ไบต์

{substr '-~'x.abs~0,0>$_}

คำอธิบาย:

{
  substr
    # string repeat ｢-~｣ by the absolute value of the input
    '-~' x .abs

    # concatenate 0 to that
    ~ 0

    ,

    # ignore the first character of the string if it is negative
    0 > $_
}

เยลลี่, 14 12 ไบต์

-2 ไบต์ขอบคุณ @Dennis (ส่งคืน 0 แทนที่จะเชื่อมต่อ "0" ทำให้เป็นโปรแกรมแบบเต็มเท่านั้น)

0>‘
A⁾-~ẋṫÇ0

ทดสอบที่TryItOnline

อย่างไร?

0>‘      - link 1 takes an argument, the input
0>       - greater than 0? 1 if true 0 if false
  ‘      - increment

A⁾-~ẋṫÇ0 - main link takes an argument, the input
      Ç  - y = result of previous link as a monad
A        - x = absolute value of input
 ⁾-~     - the string "-~"
    ẋ    - repeat the sting x times
     ṫ   - tail repeatedString[y:] (y will be 1 or 2, Jelly lists are 1-based)
       0 - implicit print then return 0

> <>, 18 + 3 = 22 ไบต์

:?!n0$-:0):1go-
-~

ลองออนไลน์! +3 ไบต์สำหรับ​ -vแฟล็กเพื่อเริ่มต้นสแต็กด้วยอินพุต ถ้าสมมติว่า STDIN นั้นว่างเปล่าก็โอเคแล้วต่อไปนี้จะเป็นไบต์ที่สั้นกว่า:

:?!ni*:0):1go-
-~

โปรแกรมจะพลิกอินพุตnตามที่จำเป็นจนกว่าจะถึง 0 หลังจากนั้นจะเกิดข้อผิดพลาดขึ้น

[Loop]
:?!n      If n is 0, output it as a num. If this happens then the stack is now
          empty, and the next subtraction fails
0$-       Subtract n from 0
:0)       Push (n > 0)
:1go      Output the char at (n>0, 1) which is a char from the second line
-         Subtract, overall updating n -> -n-(n>0)

อ็อกเทฟ 51 ไบต์

x=input('');[("-~"'*[1:abs(x)>0])((x<0)+1:end),'0']

ในตอนแรกการลอกเลียนแบบวิธี Matlab อย่างโจ่งแจ้งโดย @pajonk จากนั้นแก้ไขรายละเอียดบางอย่างเขียนใหม่เป็น "ผลิตภัณฑ์ด้านนอก" ระหว่างเวกเตอร์ของตัวอักษรกับตัวละคร "- ~" และการใช้ดัชนีที่ไม่เหมาะสม เรียกว่า) ช่วยให้เราประหยัดไบต์ ยังคงเจ็บปวดเล็กน้อยที่ฉันไม่สามารถรับนิพจน์ดัชนีเพื่อใช้ไบต์น้อยลง

อ็อกเทฟอนุญาตให้ (i1) (i2) หรือแม้กระทั่ง (... ) (i1) (i2) สำหรับการทำดัชนีที่ Matlab ต้องการให้เราเก็บตัวแปรไว้ระหว่างการทำดัชนี

((x<0)+1:end)

ยาวเกินไปที่จะอธิบาย "ข้ามก่อนถ้า" จะต้องมีวิธีที่ดีกว่า

PseudoD , 688 579 521 bytes

utilizar mate.pseudo
utilizar entsal.pseudo
adquirir n
adquirir a
adquirir r
adquirir i
fijar n a llamar LeerPalabra finargs
si son iguales n y CERO
escribir {0}
salir
fin
fijar a a llamar ValorAbsoluto n finargs
fijar i a CERO
si comparar Importar.Ent.Comparar n < CERO
fijar r a {~}
sino
fijar r a {-}
fin
mientras comparar Importar.Ent.Comparar i < a
escribir r finargs
si son iguales r y {~}
fijar r a {-}
Importar.Ent.Sumar i UNO i
sino
fijar r a {~}
fin
finbucle
si son iguales r y {~}
escribir {~}
fin
escribir {0}

อธิบาย:

Read a number from STDIN;
If the number is zero (0); Then:
    Writes 0 to STDOUT and exits;
End If;
If the number is less than zero (0); Then:
    Set the fill character to "~";
Else:
    Set the fill character to "-";
End If;
For i = 0; While i is less than abs(number); do:
    Write the fill character to STDOUT;
    If the fill character is "~":
        Set the fill character to "-"
        Increment i by one
    Else:
        Set the fill character to "~"
    End if;
End for;
If the fill character is "~"; Then:
    Write "~" to STDOUT;
End If;
Write "0" to STDOUT

PHP, 61 ไบต์

if(0>$n=$argv[1]){echo"~";$n=~$n;}echo str_repeat("-~",$n),0;

PHP, 58 ไบต์

<?=((0<$a=$argv[1])?'-':'').str_pad('0',2*abs($a),'~-',0);

เขาวงกต 25 ไบต์

`?+#~.
.  ; 6
54_"#2
  @!

ลองออนไลน์!

คำอธิบาย

ฉันชอบกระแสการควบคุมในอันนี้ IP ทำงานในรูปที่ 8 (หรือที่จริงแล้วคือ∞ฉันเดา) ผ่านรหัสเพื่อลดอินพุตให้ช้าลง0ในขณะที่พิมพ์อักขระที่เกี่ยวข้อง

รหัสเริ่มต้นที่มุมบนซ้ายไปทางขวา ตอน`นี้ไม่ได้ทำอะไรเลย ?อ่านอินพุตและ+เพิ่มลงในศูนย์โดยนัยด้านล่าง แน่นอนว่าไม่ได้ทำอะไรอย่างใดอย่างหนึ่ง แต่เมื่อเราเรียกใช้รหัสนี้อีกครั้ง?จะผลักศูนย์ (เพราะเราอยู่ที่ EOF) +แล้วจะกำจัดศูนย์นั้น

ถัดไป#จะเพิ่มความลึกของสแต็กเพียงเพื่อให้แน่ใจว่ามีค่าเป็นบวกบนสแต็กเพื่อให้ IP เลี้ยวไปทางใต้และ;ทิ้งอีกครั้ง

the "no-op และทำหน้าที่เป็นสาขาหลักของรหัส มีสามกรณีที่จะแยกแยะ:

• หากค่าปัจจุบันเป็นบวก IP จะเลี้ยวขวา (ตะวันตก) และทำหนึ่งรอบของลูปด้านซ้ายให้เสร็จสมบูรณ์:

  _45.`?+
  _45      Push 45.
     .     Print as character '-'.
      `    Negate the current value (thereby applying the unary minus).
       ?+  Does nothing.
  

• หากค่าปัจจุบันเป็นลบ IP จะเลี้ยวซ้าย (ตะวันออก) และใช้รหัสต่อไปนี้:

  #26.~
  #        Push stack depth, 1.
   26      Turn it into a 126.
     .     Print as character '~'.
      ~    Bitwise NOT of the current value (applying the ~).
  

  โปรดทราบว่าทั้งสองจะสลับกัน (เนื่องจากทั้งคู่เปลี่ยนเครื่องหมายของอินพุต) จนกว่าค่าอินพุตจะลดลงเป็นศูนย์ ณ จุดนั้น ...

• เมื่อค่าปัจจุบันเป็นศูนย์ IP เพียงแค่ช่วยให้การเคลื่อนย้ายใต้และดำเนินการและจากนั้นก็หันไปทางทิศตะวันตกบน! พิมพ์และยกเลิกโปรแกรม@!0@

GolfScript ,30 24 20 ไบต์

• บันทึก 6 ไบต์ขอบคุณ xnor
• บันทึกแล้ว 4 ไบต์ขอบคุณเดนนิส

~."-~"\abs*\0<{(;}*0

การป้อนข้อมูล: -5

เอาท์พุท: -5 = ~-~-~-~-~0

คำอธิบาย

~.     # Input to integer and duplicate
"-~"   # We shall output a repetition of this string
\abs   # Move the input onto the stack and computes abs
*      # Multiply "-~" for abs(input) times
\      # Copy onto the stack the input
0<     # Is it less than 0?
{(;}*  # Yes: remove first '-' from the output
0      # Push 0

ลองออนไลน์!