Cho một số nguyên, tạo một biểu thức tạo ra nó từ 0việc sử dụng phủ định đơn phương -và bổ sung bitwise ~( ~n= -n-1), với các toán tử được áp dụng từ phải sang trái.

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

Biểu hiện của bạn phải càng ngắn càng tốt, có nghĩa là không có bộ phận dư thừa ~~, --, -0, hoặc 00. Xuất hoặc in biểu thức dưới dạng chuỗi hoặc chuỗi ký tự.

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 byte

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

Chức năng lambda ẩn danh. Cho một số nguyên x ghi "- ~" abs (x) lần và loại bỏ char đầu tiên nếu x âm, sau đó một số 0 được thêm vào cuối.

JavaScript (ES6), 33 31 byte

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

Đệ quy <xây dựng <vòng lặp (ít nhất là trong trường hợp này). Về cơ bản đánh giá đầu vào:

• nếu nó nhỏ hơn 0, lật nó và thêm a ~vào chuỗi;
• nếu nó nhiều hơn 0, phủ nhận nó và thêm a -vào chuỗi;
• nếu chính xác là 0, trả về 0.

Tận dụng lợi thế của mẫu này:

 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 byte

_<>0Q+0sm"~-

-2 byte nhờ vào @StevenH.

bộ kiểm tra

Quyết định dùng thử Pyth, vì vậy tôi đã dịch câu trả lời python của mình cho nó. Bất kỳ trợ giúp chào mừng!

Giải trình:

_<>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 byte

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

Không giống như hầu hết (tất cả?) Các câu trả lời khác, câu trả lời này đưa ra các toán tử ~và -từng cái một.

05AB1E , 14 13 byte

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

Giải trình

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

Hãy thử trực tuyến!

Võng mạc, 19 17 byte

Thay thế số bằng unary, bằng số 0 ở cuối. Thay thế 1bằng -~. Loại bỏ âm kép nếu có.

\d+
$*10
1
-~
--

Dùng thử trực tuyến

Tất cả các trường hợp thử nghiệm cùng một lúc (chương trình sửa đổi một chút để hỗ trợ nhiều trường hợp thử nghiệm)

Perl 38 35 33 (23 + 1 cho -p) 24

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

-13 cảm ơn Dada

APL Dyalog , 18 byte

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

'0',⍨ ký tự số 0 được thêm vào

0∘> tính tiêu cực (tức là 1 cho các số dưới 0; 0 cho số 0 trở lên)

↓ rơi từ

'-~'⍴⍨ chuỗi "~ -" được định hình lại theo chiều dài

2× hai lần

| giá trị tuyệt đối

+ thêm

0∘< tính tích cực (tức là 1 cho các số trên 0)

Dùng thử trực tuyến!

Haskell, 41 byte

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

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

Cảm ơn nimi cho 3 byte

V , 21 byte

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

Hãy thử trực tuyến!

V có hỗ trợ số rất hạn chế và thực tế nó không có khái niệm về số âm. Điều này có nghĩa là để hỗ trợ tiêu cực (hoặc thậm chí 0), chúng tôi phải sử dụng một số cách giải quyết khác.

Giải trình:

/ä                  "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 byte

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

Đã lưu 2 byte nhờ @Neil

Thạch , 10 byte

A⁾-~ẋḊẋ¡N0

Đây là một chương trình đầy đủ. Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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 byte

79 byte:

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

Ung dung:

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

Phiên bản cũ (95 byte):

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

Sử dụng:

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;}
}

Hãy thử nó ở đây!

Đầu ra:

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

Ruby, 34 byte

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

EXCEL: 55 33 byte

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

Đầu vào ở dạng đặt một số trong ô A1. Công thức có thể đi bất cứ nơi nào ngoại trừ A1.

T-SQL, 87 byte

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

Điều x*x+1kiện trong chuỗi con là đủ, vì x^2+1>=2*abs(x)tất cả x.

Như thường lệ trong SQL, đầu vào được lưu trữ trong một bảng:

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 byte

Lấy một số cảm hứng từ câu trả lời của Emigna để tiết kiệm 4 byte.

li_z"-~"*\0<>0

Hãy thử trực tuyến! (Là một bộ thử nghiệm được phân tách theo dòng.)

Giải trình

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 tổ hợp phím

Golf vim đầu tiên, prolly bỏ lỡ một tấn công cụ.

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

Matlab, 61 byte

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

Pyke, 14 13 byte

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

Hãy thử nó ở đây!

Perl 6 , 25 byte

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

Giải trình:

{
  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 > $_
}

Thạch, 14 12 byte

-2 byte nhờ @Dennis (trả về 0 thay vì ghép "0", làm cho đây chỉ là một chương trình đầy đủ.)

0>‘
A⁾-~ẋṫÇ0

Kiểm tra nó tại TryItOnline

Làm sao?

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 byte

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

Hãy thử trực tuyến! +3 byte cho ​ -vcờ để khởi tạo ngăn xếp với đầu vào. Nếu giả sử rằng STDIN trống thì không sao, thì sau đây là một byte ngắn hơn:

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

Chương trình tiếp tục lật đầu vào nkhi cần thiết cho đến khi nó về 0, sau đó nó bị lỗi.

[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)

Octave, 51 byte

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

Đầu tiên, sao chép một cách trắng trợn cách tiếp cận Matlab bằng cách @pajonk và sau đó sửa đổi một số chi tiết, viết lại như một "sản phẩm bên ngoài" giữa một vectơ của các ký tự và các ký tự "- ~" và lạm dụng lập chỉ mục khi đang bay (hoặc nó có thể là gì được gọi) cho phép chúng tôi lưu một số byte. Tôi vẫn hơi đau một chút rằng tôi không thể lấy biểu thức chỉ mục để lấy ít byte hơn.

Octave cho phép một (i1) (i2) hoặc thậm chí (...) (i1) (i2) để lập chỉ mục trong đó Matlab muốn chúng ta lưu trữ các biến ở giữa các chỉ mục.

((x<0)+1:end)

là quá dài để mô tả "bỏ qua đầu tiên nếu". Phải có cách tốt hơn.

Giả , 688 579 521 byte

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}

Giải thích:

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 byte

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

PHP, 58 byte

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

Mê cung , 25 byte

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

Hãy thử trực tuyến!

Giải trình

Tôi thực sự thích dòng điều khiển trong cái này. IP chạy trong hình 8 (hoặc thực tế là, tôi đoán vậy) thông qua mã để giảm đầu vào từ từ 0trong khi in các ký tự tương ứng.

Mã bắt đầu ở góc trên bên trái đi bên phải. Các `không làm bất cứ điều gì ngay bây giờ. ?đọc đầu vào và +thêm nó vào số 0 ẩn bên dưới. Tất nhiên điều đó cũng không làm gì cả, nhưng khi chúng ta chạy lại mã này, ?sẽ đẩy số 0 (vì chúng ta đang ở EOF), và +sau đó sẽ thoát khỏi số 0 đó.

Tiếp theo, #đẩy độ sâu của ngăn xếp, chỉ cần đảm bảo rằng có một giá trị dương trên ngăn xếp để làm cho IP quay về hướng nam và ;loại bỏ nó một lần nữa.

Đây "là một no-op và hoạt động như nhánh chính của mã. Có ba trường hợp để phân biệt:

• Nếu giá trị hiện tại là dương, IP sẽ rẽ phải (hướng tây) và hoàn thành một vòng của vòng lặp bên trái:

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

• Nếu giá trị hiện tại là âm, IP sẽ rẽ trái (hướng đông) và đoạn mã sau được chạy:

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

  Lưu ý rằng hai cái này sẽ thay thế (vì cả hai đều thay đổi dấu hiệu của đầu vào) cho đến khi giá trị đầu vào giảm xuống bằng không. Tại thời điểm đó...

• Khi giá trị hiện tại bằng 0, IP chỉ cần tiếp tục di chuyển về phía nam và thực hiện !và sau đó quay về hướng tây lên @. !in 0và @chấm dứt chương trình.

GolfScript ,30 24 20 byte

• Đã lưu 6 byte nhờ xnor.
• Đã lưu 4 byte nhờ Dennis.

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

Đầu vào: -5

Đầu ra: -5 = ~-~-~-~-~0

Giải trình

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

Hãy thử trực tuyến!