Bir tamsayı verildiğinde , operatörleri sağdan sola uygulayarak, 0unary olumsuzlama -ve bitsel tamamlayıcı ~( ~n= -n-1) kullanmaktan üreten bir ifade verin .

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

Sizin ifade hiçbir gereksiz parçalar demektir mümkün olduğunca kısa olarak olmalıdır ~~, --, -0, veya 00. İfadeyi bir dizge veya karakter dizisi olarak çıktılayın veya yazdırın.

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 bayt

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

Anonim lambda işlevi. Bir tamsayı verildiğinde x, "- ~" abs (x) kez yazıyor ve x negatifse ilk karakteri kaldırıyor, ardından sonuna bir sıfır ekleniyor.

JavaScript (ES6), 33 31 bayt

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

Özyineleme <yerleşikler <döngüler (en azından bu durumda). Temel olarak girişi değerlendirir:

• 0'dan küçükse, onu çevirin ve ~dizeye bir a ekleyin ;
• 0'dan büyükse, onu yok sayın ve -dizeye bir a ekleyin ;
• tam olarak 0 ise, 0 döndür.

Bu düzenden yararlanır:

 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 Bayt

_<>0Q+0sm"~-

@ StevenH sayesinde 2 bayt.

test odası

Pyth'i denemeye karar verdim , bu yüzden python cevabımı ona çevirdim . Herhangi bir yardım hoş geldiniz!

Açıklama:

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

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

Diğer (çoğu?) Diğer cevapların aksine, bu durum operatörleri ~ve -birer birer çıktılar .

05AB1E , 14 13 bayt

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

açıklama

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

Çevrimiçi deneyin!

Retina, 19 17 bayt

Sayıyı unary, sonunda sıfırla değiştirin. Her değiştirin 1ile -~. Bir tane varsa, çift negatif çıkarın.

\d+
$*10
1
-~
--

Çevrimiçi deneyin

Tüm test durumları bir kerede (çoklu test durumlarını desteklemek için biraz değiştirilmiş program)

Perl 38 35 33 (-p için 23 + 1) 24

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

-13 Dada'ya teşekkürler

Dyalog APL , 18 bayt

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

'0',⍨ eklenen karakter sıfır

0∘> olumsuzluk (yani, 0'ın altındaki sayılar için 1; sıfır ve üstü için 0)

↓ düştü

'-~'⍴⍨ "~ -" dizgisi periyodik olarak uzunluğa göre yeniden şekillendirilir

2× iki kere

| mutlak değer

+ artı

0∘< pozitiflik (yani 0'dan büyük sayılar için 1)

TryAPL çevrimiçi!

Haskell, 41 bayt

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

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

3 bayt için nimi sayesinde

V , 21 bayt

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

Çevrimiçi deneyin!

V etti çok sayıda sınırlı destek ve aslında negatif sayılar kavramı yok. Bu, negatifleri (veya hatta 0'ı) desteklemek için bazı kötü geçici çözümler kullanmamız gerektiği anlamına gelir.

Açıklama:

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

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

@Neil sayesinde 2 bayt kaydedildi

Jöle , 10 bayt

A⁾-~ẋḊẋ¡N0

Bu tam bir programdır. Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

79 bayt:

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

Eski versiyon (95 bayt):

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

Kullanımı:

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

Burada dene!

Çıktı:

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

Ruby, 34 bayt

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

EXCEL: 55 33 bayt

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

Giriş, A1 hücresine bir sayı koyma şeklindedir. Formül A1 hariç herhangi bir yere gidebilir.

T-SQL, 87 bayt

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

x*x+1Alt dize koşul beri, yeterli x^2+1>=2*abs(x)herkes için x.

Genellikle SQL'de olduğu gibi giriş bir tabloda saklanır:

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 bayt

4 bayt kurtarmak için Emigna'nın cevabından ilham aldı .

li_z"-~"*\0<>0

Çevrimiçi deneyin! (Satır ayrılmış bir test takımı olarak.)

açıklama

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 tuş vuruşları

İlk vim golf, bir sürü şeyi kaçırdı.

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

Matlab, 61 bayt

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

Pyke, 14 13 bayt

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

Burada dene!

Perl 6 , 25 bayt

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

Açıklama:

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

Jöle, 14 12 bayt

@Dennis sayesinde -2 bayt ("0" birleştirmek yerine 0 döndür, bunu sadece tam program yapar.)

0>‘
A⁾-~ẋṫÇ0

TryItOnline'da test edin

Nasıl?

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 bayt

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

Çevrimiçi deneyin! ​ -vBayrağın yığını girişle başlatması için +3 bayt . STDIN’in boş olduğunu varsayarsak, aşağıdakiler bir bayt daha kısadır:

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

Program, n0'a ulaşana kadar girişi gerektiği gibi çevirmeye devam ediyor , ardından hata veriyor.

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

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

Önce, Matlab yaklaşımını pajonk tarafından açıkça kopyalamak ve sonra bazı detayları değiştirmek, bir vektör ile karakterleri "- ~" arasında "dış ürün" olarak yeniden yazmak ve anında indekslemeyi kötüye kullanmak (ya da ne olabilir Çağrılan) bazı baytları kaydetmemize izin verir. Daha az bayt almak için dizin ifadesini alamadığım için hala biraz acı veriyor.

Oktav, Matlab'ın indeksler arasında değişkenleri saklamamızı isteyeceği indeksleme için bir (i1) (i2) veya hatta (...) (i1) (i2) 'ye izin verir.

((x<0)+1:end)

"önce atla" yı tanımlamak için çok uzun. Daha iyi bir yol olmalı.

Sözde , 688 579 521 bayt

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}

Açıklamak:

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 bayt

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

PHP, 58 bayt

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

Labirent , 25 bayt

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

Çevrimiçi deneyin!

açıklama

Buradaki kontrol akışını gerçekten seviyorum. IP 0, ilgili karakterleri yazdırırken girişi yavaşça azaltmak için kod boyunca bir şekil 8'de (veya aslında bir ∞, sanırım) çalışır .

Kod sol üst köşede sağa doğru ilerleyerek başlar. Şu `anda hiçbir şey yapmıyor. ?girişi okur ve +aşağıdaki örtük sıfıra ekler. Tabii ki bu da bir şey yapmıyor, ancak bu kodu tekrar ?denediğimizde, sıfırı zorlayacağız (çünkü biz EOF'dayız) ve +o zaman sıfırdan kurtulacak.

Daha sonra #, IP'yi güneye döndürmek için yığında pozitif bir değer olduğundan emin olmak için yığın derinliğini iter ve ;tekrar atar.

"No-op ve kodun temel dalı olarak görür. Ayırt etmek için üç durum var:

• Mevcut değer pozitif ise, IP sağa döner (batı) ve soldaki döngünün bir turunu tamamlar:

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

• Geçerli değer negatifse, IP sola döner (doğu) ve aşağıdaki kod çalıştırılır:

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

  Girdi değeri sıfıra düşene kadar bu ikisinin de değişeceğini (her ikisi de girişin işaretini değiştirir) unutmayın. Bu noktada...

• Mevcut değer sıfır olduğunda, IP basitçe güneye doğru ilerlemeye devam eder !ve ardından ilerledikçe batıya döner @. programı !yazdırır 0ve @sonlandırır.

GolfScript ,30 24 20 bayt

• Xnor sayesinde 6 bayt kurtardı.
• Dennis sayesinde 4 byte kurtarıldı.

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

Giriş: -5

Çıktı: -5 = ~-~-~-~-~0

açıklama

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

Çevrimiçi deneyin!