İşte size basit bir meydan okuma.

Uzunluk dize Verilen N dize ileriye, daha sonra geriye, sonra ileriye, daha sonra geriye, çıkış ... vb N zamanlarda. Örneğin, girişiniz

Hello!

Çıkmanız gerekir:

Hello!!olleHHello!!olleHHello!!olleH

İsteğe bağlı olarak sondaki bir satır sonunu da çıkarabilirsiniz.

Gönderiniz tam bir program veya bir işlev olabilir ve herhangi bir makul formatta girdi ve çıktı alabilirsiniz . Örneğin, IO'yu STDIN / STDOUT'dan, işlev argümanlarından ve geri dönüş değerinden, bir dosyadan vb. Alabilir. Sen gerekir tek bir satırda çıkış yeni dize. Yani, örneğin, son örneğin çıktısı

Hello!
!olleH
Hello!
!olleH
Hello!
!olleH

Bu olurdu değil geçerli bir çözüm olabilir!

İşte birkaç test durumu daha:

Input:
a
Output:
a

Input:
abcd
Output:
abcddcbaabcddcba

Input:
OK!
Output:
OK!!KOOK!

Input:
4815162342
Output:
4815162342243261518448151623422432615184481516234224326151844815162342243261518448151623422432615184

Input:
PPCG
Output:
PPCGGCPPPPCGGCPP

Input:
42
Output:
4224

Liderler

Bu bir kod golf mücadelesi olduğu için standart boşluklar yasaklandı ve bayt cinsinden en kısa cevap kazanıldı! Ancak , bu aynı zamanda herhangi bir dilde en kısa cevaba sahip olmak için bir yarışmadır. Bir Java cevabının perl veya bir golf dilinde bir cevabı geçmesi pek mümkün olmasa da, en kısa Java cevabını almak hala çok etkileyici. Yani, her ikisini de görmek için bu afişi kullanabilirsiniz

1. Tüm dillerden en kısa cevap, ve

2. Her dilde en kısa cevap.

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

# Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Başlığınıza birden fazla sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğiniz için), gerçek puanın başlıktaki son sayı olduğundan emin olun :

# Perl, 43 + 2 (-p flag) = 45 bytes

Dil adını, daha sonra büyük afiş snippet'inde görünecek bir bağlantı da yapabilirsiniz:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

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

Vim, 39 , 34 tuş vuruşlarını

:se ri
Y:s/./<C-r>"/g
<C-o>qqgJC<C-r>"<esc>gJ@qq@q

@Lynn sayesinde 5 bayt kaydedildi!

İşte canlı olarak gerçekleşen bir gif: (Bu gif'in daha önce kaydettiğimden beri daha eski bir sürüm olduğuna dikkat edin).

Ve işte nasıl çalıştığının bir açıklaması:

:se ri                  "Turn 'reverse indent' on.
Y                       "Yank this line
:s/./<C-r>"/g           "Replace every character on this line with the register
                        "We just yanked followed by a newline
<C-o>                   "Jump to our previous location
     qq                 "Start recording in register 'q'
       gJ               "Join these two lines
         C              "Delete this line, and enter insert mode
          <C-r>"<esc>   "Paste the line we just deleted backwards 
gJ                      "Join these two lines
  @q                    "Call macro 'q'. This will run until we hit the bottom of the buffer.
    q                   "Stop recording.
     @q                 "Start our recursive macro

Bir yandan notta, Ygenellikle iğrenç bir özellik olan ekstra bir yeni satır alır. Bu muhtemelen ilk defa birkaç byte kaydettiği ilk zamandır!

Python, 40 bayt

f=lambda s,i=0:s[i:]and s+f(s[::-1],i+1)

Özyinelemeli bir işlev. sSayaç iuzunluğunu geçinceye kadar giriş dizesini ters fonksiyonuna bağımlı tutar s.

Brain-Flak , 418 378 228 bayt

Bu benim Brain-Flak şaheserim. İyi golf oynamamayabilir, ancak meydan okuma şimdiye kadar karşılaştığım en zor şeydi.

Çevrimiçi deneyin!

(([])[()]){({}[()]<(({}(<()>))<{({}[()]<(({}()<(({}<>))>)<({()<({}[()]<({}<({}<>)<>>)>)>}{}<>){({}[()]<({}<>)<>>)}{}>)>)}{}{}<>([]){{}({}<>)<>([])}{}<>>)>)}{}([(({}))]{({})({}[()])}{}){(({}[({}<>)<>])<<>({}<><{(({}[()])<{({}[()]<({}<({}<>)<>>)>)}{}<>([]){{}({}<>)<>([])}{}<>>)}{}>)>)}

açıklama

Bu açıklama şimdi biraz modası geçmiş, ancak hala programı açıklamak için oldukça iyi bir iş yapıyor.

Bu açıklama benim düzenli açıklama sürecimden biraz farklı olacak. Sonucu sırayla açıklamak yerine bu sonuç hakkında nasıl geldiğimi açıklayacağım. İşte gidiyor:

Rulman

Sorun biraz çalıştıktan sonra bu kod ile geldi:

(n[()])({()<({}[()]<({}<({}<>)<>>)>)>}{}<>){({}[()]<({}<>)<>>)}{}<>

Bu kod (n'nin bazı sayıların değişmez olduğu örn. ()()), Öğeyi yığının en üstüne götürür ve n adımına indirir. İstif yüksekliği olarak n ile bu, "istifleme" istifini gerçekleştirir. yani, üst öğeyi yığının altına taşıyın. İşte nasıl çalışıyor:

Maddeyi yığındaki eksi bir noktaya taşımak istediğimiz yeri koyduk. Neden eksi bir? Bilmiyorum, sadece bu şekilde çalışıyor.

(n[()])

Daha sonra bu sayı ile a'nın sıfırı takip ederek sıfıra ulaşana kadar döngü yaparız ().

{()<({}[()]<...>)>)>}{}

Her döngü yaptığımızda üstteki öğeyi alırız ve altındaki öğeyi diğer yığına taşırız. Bu sayıyı yerine koyar.

({}<({}<>)<>>)

Şimdi tek yapmamız gereken, taşındığımız sayıları koymak. Kapalı yığına geçiyoruz ve yapılan döngüdeki çalışma sayısını zorluyoruz.

(...<>)

Yeni basılan sayıyı sıfıra gelinceye kadar azaltma döngüsüne gireriz. Her defasında bir numara geriye gideriz.

{({}[()]<({}<>)<>>)}{}<>

Ters

Sonra tam bir yığını tersine çevirmek için ruloyu değiştirdim:

(n){(({}[()])<{({}[()]<({}<({}<>)<>>)>)}{}<>([]){{}({}<>)<>([])}{}<>>)}{}

Bir kez daha n, tersinin derinliğini temsil eder. Yığındaki en üstteki öğeler ters çevrilecektir. Nasıl çalışır:

Tersi sadece süslü bir rulo. Yığının üst kısmına n kez sarılırız, yuvarlanma derinliğini her seferinde bir kat azaltır.

(n){(({}[()])<ROLLER>)}{}

Çift

Yerinde çoğaltma zordur. Gerçekten zor. Yığının nasıl tersine çevrildiğini bulduktan sonra, çoğaltma algoritmasını bulmak için hala büyük çaba harcadım.

İşte burada:

(((n)<{({}[()]<(({}<>))<>>)}{}<>>)<{({}[()]<({}<>)<>([][()])({()<({}[()]<({}<({}<>)<>>)>)>}{}<>){({}[()]<({}<>)<>>)}{}<>>)}{}<>([]){{}({}<>)<>([])}{}<>([]){(({}[()])<{({}[()]<({}<({}<>)<>>)>)}{}<>([]){{}({}<>)<>([])}{}<>>)}{}>)

Biraz büyük bir şey ama işte nasıl çalıştığı:

N tuşuna basarak başlayın. n, kopyanın derinliğidir. Ayrıca iki parantez açtık. Bunlar, n'nin değerini tekrar ihtiyaç duyulana kadar kapsamda saklamamızı sağlar.

(((n)<

Daha sonra, yığının en üst değerini kapalı yığına iki kez iterek her seferinde n kez döngü yaparız. Bu, yığındaki her sayı için ilk kopyaları yapar.

{({}[()]<(({}<>))<>>)}{}

Şimdi, her kağıtta iki adet kopya var. Bunları iki gruba ayırmamız gerekiyor.

Böylece offstack'a geçiyoruz ve başlangıçta kaydettiğimiz ns'lerden birini hatırlıyoruz.

<>>)

N kere dönüyoruz.

{({}[()]<...>)}{}

Her defasında bir kopyasını ana kareye taşırız.

({}<>)<>

Ve bir kopyasını yığının dibine rulo. (Bu, kopyanın temizlememesini sağlamakla üst tabakanın boş olduğunu varsayar)

([][()])ROLLER

Bu yapıldıktan sonra, orijinali "orijinal" i ve alt tabakadaki bir kopyasını iki gruba ayırdık (kopya aslında tam tersidir). Bu yüzden sadece kopyasını ana yığına taşıyoruz ve bununla yapılabilir.

([]){{}({}<>)<>([])}{}<>

İskelet programı

Şimdi programın tüm parçalarını yaptım, sadece onları bir çerçeveye yerleştirmek zorundayım.

Çerçeve, metni, yığının yükseklik zamanlarından bir kat daha az ikiye katlar.

(([])[()])
{
 ({}[()]<
  DUPLICATE 
 >)
>)}{}

Ve sonra, ilk yığın yüksekliğinin artışını n ^ 2-n'den 0'a düşürerek yığını tersine çevirir.

(({}))
{
 (({}[()])<
  ({}<>)<>(({}))({<({}[()])><>({})<>}{})<>{}<>
  ({}<({}<>)<>>)<>({}<>)
  ({}<
   REVERSE
  >)
 >)
}{}{}

Jöle , 4 3 bayt

,Ṛṁ

Çevrimiçi deneyin! veya Tüm test durumlarını doğrulayın.

@ Maltysen sayesinde bir bayt kaydedildi .

açıklama

,Ṛṁ  Input: string S
 Ṛ    Reverse S
,     Join S with reverse of S. Makes a list [S, rev(S)]
  ṁ   Mold [S, rev(S)] to len(S) by repeating elements cyclically
      Return and print implicitly as a string

PHP, 54 52 bayt

(49 bayt, ancak string '0' içeriyorsa çalışmaz)

for(;($a=$argv[1])[$i++];)echo$i%2?$a:strrev($a);

(52 bayt)

<?=str_pad('',strlen($a=$argv[1])**2,$a.strrev($a));

(54 bayt)

for(;$i++<strlen($a=$argv[1]);)echo$i%2?$a:strrev($a);

2sable , 3 bayt

Kod:

gGÂ

Açıklama:

g   # Get the length of the input
 G  # Do the following n - 1 times:
  Â # Bifurcate, which duplicates a and reverses the duplicate

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

Ruby, 39 bayt

->(s){s.reverse!.gsub(/./){s.reverse!}}

Ruby'de yatarım. Golf yardımı takdir edilmektedir.

Ruby bunun için gerçekten çok hoş bir dil. .reverse!

açıklama

Bunun gibi basit bir şey olacağını umuyordum:

s.gsub(/./){s.reverse!}

ancak kazan / meydan kısıtlaması nedeniyle daha uzun.

Ne s.reverse!çok yararlıdır. s.reverse!temelde s = s.reverse!, aynı zamanda mutasyona da uğrar s.

Programın her bir bölümünün yaptığı aşağıda açıklanmıştır:

->(s){             # Lambda with argument s
      s.reverse!   # Reverse `s` see above for details
      .gsub(/./)   # Replace every character with...
      {s.reverse!} # the input reversed!

Bununla ilgili önemli s.reverse!olan şey , her değerlendirildiği zaman dizginin çevrilmiş olduğu. Dize değiştirir gibi. sdeğiştirildi!

Perl, 24 bayt

İçin +2 içerir -lp

STDIN'e giriş verin:

rev.pl <<< Hello!

rev.pl:

#!/usr/bin/perl -lp
s%.%s/.?/chop/eg;$`%eg

Şaşırtıcı bir şekilde, bu yerleşik reverseoperatörü kullanmaz . Bu isim sadece soooo uzunluğunda, aklıma gelen tüm çözümler reverseen az 1 bayt daha uzun.

J, 13 8 bayt

Mil sayesinde 5 bayt kurtarıldı!

#;@$];|.

Bu, aşağıdaki fiilleri içeren 5 trendir:

# ;@$ ] ; |.

İç çatal ](kimlik), ;(bağlantı) ve |.(geri) oluşur. Gözlemek:

   (| ; |.) 'Hello!'
+------+------+
|Hello!|!olleH|
+------+------+

Dış iki fiil trenin geri kalanını yapar. #bu durumda, argümanın boyutu, yani uzunluktur. Bu bağlama fiildir ;@$, ya ravelüzerinde reshape. Gözlemek:

   # 'Hello!'
6
   6 $ (] ; |.) 'Hello!'
+------+------+------+------+------+------+
|Hello!|!olleH|Hello!|!olleH|Hello!|!olleH|
+------+------+------+------+------+------+
   ; 6 $ (] ; |.) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH
   6 ;@$ (] ; |.) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH
   (# ;@$ (] ; |.)) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH
   (# ;@$ ] ; |.) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH
   (#;@$];|.) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH

Eski çözüm

[:,|.^:(i.@#)

Yeterince basit. |.tersidir ve ^:defalarca sol fiilini (sağ el) tekrarlayan güç birleşimidir. Doğru argüman bir fiil olduğunda, bu fiil argümana çağrılır. Bu durumda doğru fiil sıfır ( i.) ile uzunluk ( #) arasındadır. Bir diziye yükseltildiğinde, ara sonuçlar tutulur. Yapılması gereken tek şey diziyi düzleştirmek ,.

Orta sonuç

   (i.@#) 'Hello!'
0 1 2 3 4 5
   |.^:0 1 2 3 4 5 'Hello!'
Hello!
!olleH
Hello!
!olleH
Hello!
!olleH
   |.^:(i.@#) 'Hello!'
Hello!
!olleH
Hello!
!olleH
Hello!
!olleH
   ([:,|.^:(i.@#)) 'Hello!'
Hello!!olleHHello!!olleHHello!!olleH

JavaScript (ES 6), 5950 bayt

Hedi ve Huntro sayesinde 9 bayt.

f=(s,n=1)=>s[n]?s+f([...s].reverse().join``,n+1):s

özyinelemeli işlev.

İpin ters çevrilmesi boyutun neredeyse yarısını alır ( 25 22 byte!) ...
Neden bunun doğal bir yolu yok?

Minkolang , 17 bayt:

$oId$z$Dz[rz[O]].

Burada dene!

açıklama

$o                   Read in whole input as characters
  Id                 Push the length of stack and duplicate
    $z               Pop top of stack and store in register (z)
      $D             Pop top of stack (n) and duplicate whole stack n-1 times
        z[     ]     z times, do the following:
          r          Reverse the stack
           z[O]      z times, pop the top of stack and output as character
                .    Stop.

8088 Meclisi, IBM PC DOS, 29 28 bayt

Toplanmış, xxddökümü:

00000000: d1ee ac48 938a cbfc 518a cbf7 da78 01fd  ...H....Q....x..
00000010: acac b40e cd10 e2f9 59e2 ecc3            ........Y...

Demonte listeleme:

D1 EE       SHR  SI, 1          ; point SI to DOS PSP (080H) 
AC          LODSB               ; load input string length into AL 
48          DEC  AX             ; remove leading space from length counter 
93          XCHG BX, AX         ; save input length to BL 
8A FB       MOV  BH, BL         ; string output counter in BH 
        S_LOOP: 
FC          CLD                 ; set direction forward 
8A CB       MOV  CL, BL         ; reset char counter in CL 
F7 DA       NEG  DX             ; flip DX to toggle fwd/back output 
78 01       JS   C_START        ; if positive, go forward 
FD          STD                 ; otherwise go backwards 
        C_START: 
AC          LODSB               ; adjust SI to first/last char
        C_LOOP: 
AC          LODSB               ; load next char into AL
B4 0E       MOV  AH, 0EH        ; PC BIOS tty output function
CD 10       INT  10H            ; write char to console
E2 F9       LOOP C_LOOP         ; continue looping through chars
FE CF       DEC  BH             ; decrement string count loop
75 EC       JNZ  S_LOOP         ; if not zero, continue loop
C3          RET                 ; exit to DOS

Bağımsız PC DOS çalıştırılabilir program. Komut satırı üzerinden giriş dizesi, çıktı konsoldur.

Pip , 11 10 bayt

L#aORVRV:a

Çevrimiçi deneyin!

Açıklama:

            a is first cmdline argument (implicit)
L#a         Loop len(a) times:
      RV:a   Reverse a and assign back to a
   ORV       Output the reverse of a (since it needs to go forward first then backward)

Haskell, 40 36 32 Bayt

m s=take(length s^2)$cycle$s++reverse s

Örnek:

*Main> m "Hello!"
"Hello!!olleHHello!!olleHHello!!olleH"

Daha da kısa (Damien'a verilen kredi):

q s=zip(s>>[s,reverse s])s>>=fst

s >> [s, s] s] çevrimleri ["abc", "cba", ...] doğru büyüklükte sıkıştırılır ve fst ile eşleştirilir

Perl 6 ,  31  30 bayt

{[~] (|($_,.flip)xx*)[^.chars]}

.ordsSıralıların listesini döndüren, yanlış kullanarak bir bayttan tasarruf edin, ardından bir aralık oluşturmak için bunu bir sayıya çevirin.

{[~] (|($_,.flip)xx*)[^.ords]}

Açıklama:

# bare block lambda with implicit parameter ｢$_｣
{
  # reduce using string concatenation operator ｢~｣
  [~]

  (
    # create a Slip
    |(
      # of the input, and its string reverse
      $_, .flip

    # list repeated infinitely
    ) xx *

  # get the values in the range from 0 up-to and excluding
  # the number of characters ｢0 ..^ +$_.ords｣
  )[ ^.ords ]
}

Kullanımı:

my &code = {[~] (|($_,.flip)xx*)[^.ords]}

say code 'a'; # a
say code 'abcd'; # abcddcbaabcddcba
say code 'OK!'; # OK!!KOOK!
say code 4815162342; # 4815162342243261518448151623422432615184481516234224326151844815162342243261518448151623422432615184

Vim + coreutils, 32 tuş vuruşunu

Asla çok fazla Vim cevabına sahip olamazsın.

qqYv:!rev
Pjq@=len(@")
@q2dkv{gJ

açıklama

qq               " Start recording macro
Y                " Yank (copy) line
v:!rev<CR>       " Reverse line with coreutils rev command
Pj               " Paste yanked line above this line
q                " Stop recording
@=len(@")<CR>@q  " Playback macro once for each character
2dk              " Delete last 3 lines
v{gJ             " Join lines

MATL, 13 12 8 bayt

Tüm elemanları iter, sonunda birleştirir.

td"tP]&h

td"  ]     %For loop over string length - 1 due to diff
   tP      %Push copy of string, reverse
      &h   %Concatenate entire stack horizontally

Çevrimiçi deneyin!

Eski versiyonlar:

Aşağıdakilere dayanarak tamamen farklı bir yaklaşım fprintf:

t"t1$0#YDP]x

t"        ]   % For loop over string
  t           % Duplicate string for printing:
   1$0#YD     % `fprintf` with 1 input, 0 output (i.e., to screen).
         P    % Reverse
           x  % Empty stack to prevent implicit output

Bir şablon dizesini tersine çevirmeyi temel alan sürüm

ttd"wPtbYc]Dx

t                 %Duplicate input, to create 'accumulator' string 
                  % (alongside the input string which will serve as 'template'
 td               %Duplicate input, diff to get an stringof size input-1
   "       ]      %For loop over size n-1 string (consumes diff'd string)
     wP           %Get 'template' string on top of stack, and reverse
       tb         %Duplicate template string, and switch with 'accumulator' string
         Yc       %Concatenate template string with accumulator. 
            Dx   %Display top element, delete template string to prevent implicit disp

Scala, 73 72 71 bayt

def f(s:String)=for(i<-1 to s.length){print(if(i%2>0)s else s.reverse)}

Bu benim ilk kod girme denemem, bu yüzden sayısız gelişme olduğuna eminim.

Güncelleme:

Parantezleri kaldırarak 1 byte uzakta golf oynadı.

Öneri için Yıkılabilir Karpuz sayesinde, bir bayt traş.

Cubix , 52 bayt

Ap\:\;.#u/\:qqsoq(?;u.q..$u<../pB@u:\.....\(?q..s..p

Bir küpte:

      A p \
      : \ ;
      . # u
/ \ : q q s o q ( ? ; u
. q . . $ u < . . / p B
@ u : \ . . . . . \ ( ?
      q . .
      s . .
      p . .

Bu eğlenceliydi; Bundan kurtulacak baytlar var ama bu kesinlikle işe yarayacak.

Çevrimiçi deneyin!

açıklama:

Girişi ABC

• /A: kuzeye git ve tüm girişleri karakter olarak oku; -1altta olacak
• p\;.: -1yığından kaldır
• u# : string uzunluğunu (yığındaki öğe sayısı) itin
• \:\:qq : Dize uzunluğunu iki kez kopyalayın, iki kopyayı yığının altına itin

• loop:

  • soq(?/<u : yığının üstünü değiştir, yığının üstünü ASCII olarak çıkar, üst kısmı (harf) aşağıya doğru it, üst üste yığ, önce yapılmadığında sağa dön, sonra IP'yi doğru yere taşı.
  • Döngünün sonunda, yığın gibi görünecek C B A 3 3 0

• ;u : yığının pop C B A 3 3

• B : ters yığın 3 3 A B C
• p( : aşağıdan yukarıya doğru hareket ettirin ve azaltın 3 A B C 2
• ?Eğer üst sıfırsa, dümdüz gidin @ve sonlandırın
• Başka
  • psq:uq : aşağıdan yukarıya doğru hareket ettirin, yukarı doğru kaydırın ve yukarıdan aşağıya doğru hareket ettirin ve yukarıdan aşağıya hareket edin 3 2 A B C 3
  • $u : atla u
  • < bizi tekrar döngüye sokuyor.

yorumlayıcı

C (gcc) , 88 87 85 83 68 66 83 82 78 bayt

-1 ceilingcat sayesinde

Eski versiyon

p,q;f(char*s){p=q=1;for(char*m=s--;*m;s[p+=q]*p?:(m++,p+=q=-q))putchar(s[p]);}

Çevrimiçi deneyin!

Daha kısa versiyon (biraz bozuk)

Sadece yorumlarda ASCII tarafından 76 bayt yaklaşımı ve benim çimdik tweak gelen -1 bayt riff .

Düzenleme: Bu sürüm, her dizenin bir NULL bayttan önce geldiğini ve bunun her zaman doğru olmadığını varsaymasından dolayı biraz bozulmuştur. (Bağlantıdaki son test durumuna bakın). Şimdilik 83 byte sürümüne geri dönülüyor.

f(char*s){for(char*n=s-1,k=1;*s++;k=-k)for(;*(n+=k);)putchar(*n);}

Çevrimiçi deneyin!

Java, 127 111 88 bayt

(s,r)->{for(int i=0;i++<s.length();)r+=i%2<1?new StringBuffer(s).reverse():s;return r;};

Ungolfed test programı

    public static void main(String[] args) {
    BiFunction<String, String, String> func = (s, r) -> {
        for (int i = 0; i++ < s.length();) {
            r += i % 2 < 1 ? new StringBuffer(s).reverse() : s;
        }
        return r;
    };
    System.out.println(func.apply("Hello!", ""));
}

R, 53 bayt

Her karakter için girişin boşluk veya yeni satır ile ayrıldığını varsayalım.

cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")

Bazı test durumları:

> cat(rep(c(i<-scan(,""),rev(i)),len=length(i)^2),sep="")
1: h e l l o !
7: 
Read 6 items
hello!!ollehhello!!ollehhello!!olleh

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: a
2: 
Read 1 item
a

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: a b c d
5: 
Read 4 items
abcddcbaabcddcba

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: O K !
4: 
Read 3 items
OK!!KOOK!

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: 4 8 1 5 1 6 2 3 4 2
11: 
Read 10 items
4815162342243261518448151623422432615184481516234224326151844815162342243261518448151623422432615184

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: P P C G
5:    
Read 4 items
PPCGGCPPPPCGGCPP

> cat(rep(c(i<-scan(,""),rev(i)),l=length(i)^2),sep="")
1: 4 2
3: 
Read 2 items
4224

PowerShell v2 +, 57 bayt

param($a)-join(1..($x=$a.length)|%{($a[$x..0],$a)[$_%2]})

Dize uzunluklarını almak veya tersine çevirmek için gerçek bir temiz yol yok, bu yüzden bu oldukça uzun.

Girdiyi alır $a, iladan döngüler ( daha sonra kullanılmak 1üzere $a.lengthsaklanır $x). Her yinelemede , giriş numaramızın tek / çift olmasına bağlı olarak ya $ada $a[$x..0]( veya tersine çevrilmiş) dizisine endekslemek için bir sahte-üçlü kullanırız [$_%2]. Bunların hepsi parenler içinde kapsüllenir ve -jointek bir dize oluşturmak üzere bir araya getirilir . Bu boru hattında bırakılmış ve çıktı kapalı.

PS C:\Tools\Scripts\golfing> .\stringgnirts.ps1 'TimmyD'
TimmyDDymmiTTimmyDDymmiTTimmyDDymmiT

Java, 151 bayt

public static void r(String s){String t = new StringBuffer(s).reverse().toString();for(int i=0;i<s.length();i++){System.out.print(((i%2==1)?t:s));}}

}

Ungolfed:

public static void r(String s) {
    String t = new StringBuffer(s).reverse().toString();
    for(int i = 0; i < s.length();i++) {
        System.out.print(((i % 2 == 1) ? t : s));
    }
}

C #, 94 bayt

using System.Linq;string R(string n)=>string.Concat(n.SelectMany((c,i)=>1>i%2?n:n.Reverse()));

LINQ içe aktarma için yöntem + 76 bayt için 76 bayt.

Nasıl çalışır:

using System.Linq; // Required for LINQ extension methods.

string R(string n) => 
    string.Concat( // Concatenate the following chars into a single string
        n.SelectMany( // Enumerate each char in n, flattening the returned IEnumerable<char>'s into a single IEnumerable<char>
            /*IEnumerable<char> Lambda*/(/*char*/ c, /*int*/ i) => // i = index in n
                1 > i % 2 // Check if i is even or odd
                    ? n // if i is even, add n to the concat
                    : n.Reverse() // else reverse n and concat that
        )
    )
;

CJam , 10 bayt

l_,({_W%}*

Çevrimiçi deneyin!

açıklama

l            e# Read line
 _           e# Duplicate
  ,(         e# Length minus 1
    {   }*   e# Run code block that many times
     _       e# Duplicate
      W%     e# Reverse
             e# Implicitly display

Octave, 39 35 bayt

@(x)[x'+~x;flip(x'+~x),''](1:end/2)

f('Hello!')
ans = Hello!!olleHHello!!olleHHello!!olleH

Açıklama:

@(x)            % Take x as input, inside apostrophes 'Hello!'
x'+~x           % Create a mesh of the ASCII-code of the input letters
                % For input `bcd` this will be:
                %    98    98    98
                %    99    99    99
                %   100   100   100
;flip(x'+~x)   % Concatenate vertically to create:
                %    98    98    98
                %    99    99    99
                %   100   100   100
                %   100   100   100
                %    99    99    99
                %    98    98    98
___,'']         % Short cut to convert ASCII-code to characters
(1:end/2)       % Display the first half of this array of letters, as a
                % horizontal string

Luis sayesinde 4 byte kurtarıldı. ~xyerine 0*xkaydedilmiş bir byte x tüm unsurları olmayan sıfırdır. Çünkü (işleri flipyerine flipudbaşka bir iki bayt kaydedildi (ı bilmediğim flip) mevcuttu.

bash + util-linux, 68 58 53 bayt

y=$1;for((i;i<${#1};i++)){ echo -n $y;y=`rev<<<$y`;}

açıklama

forDöngü ile iki şey :

• Yazma bir görünüşe belgesiz yolu yoktur forbiri değiştirir döngüler dove doneküme parantezleri ile anahtar kelimeleri {ve }. İlk bağlantı sonrası boşluk gerekli ve sonunda noktalı virgül de gereklidir.
• Görünüşe göre, "C tarzı" fordöngülerde i;kullanmak yerine sadece başlayabilirsiniz i=0;.
• Koşulun bir ${#1}kısmı i < ${#1}girdilerimizin uzunluğunu belirtir (ilk parametre $1). Genel olarak, ${#foo}dizenin boyutunu almak için kullanabilirsiniz $foo.

Bunlara ek olarak:

• rev dizeyi tersine çeviren util-linux aracıdır.
• Yeni hatlardan kurtulmak için -nbayrağı echogeçmeliyiz.
• İfade rev<<<$y, değişkeni standart girişine geçiren here-string ( bu ilgili tldp.org sayfasına bakınız ) $yolarak adlandırılır rev.

Japt , 11 bayt

ê1 pUÊ ¯Uʲ
ê1          // Append the reverse of the input to the input,
   pUÊ      // then repeat it input length times
       ¯Uʲ // and finally trim to length input length squared.

Çevrimiçi deneyin!

05AB1E , 7 bayt

vDR}v}J

Çevrimiçi deneyin!

Üzerinde çalışmaya devam edecek. Bunun "v}" bölümünden pek hoşlanmıyorum, muhtemelen orada bir bayt kurtarabilir.

açıklama

vDR}v}J

v         ; Iterates through each character
 D        ; Duplicate top of stack
  R       ; Push top of stack reversed
   }      ; end for loop
   v}     ; same as other v, effectively pops top of stack off
     J    ; Join everything together