Antara pertanyaan kucing dan melihat pertanyaan ini di U&L tentang sedsihir, bagaimana dengan penerapannya tac?

Objektif

Menerapkan program yang akan membalikkan dan mencetak garis dalam file.

Memasukkan

File, disediakan sebagai nama atau melalui input standar

Keluaran

Garis, dibalik, ke standar keluar.

Mencetak gol

Byte kode sumber.

GS2, 3 byte

* +

Tiga byte adalah, secara berurutan, membagi garis, mundur, dan bergabung dengan garis.

Perl, 11 byte

$\=$_.$\}{

Berperilaku persis seperti tac. Kode ini membutuhkan -psakelar, yang telah saya hitung sebagai 1 byte.

Tes berjalan

$ echo -en 'a\nb' | perl -pe'$\=$_.$\}{' | xxd -g 1
0000000: 62 61 0a                                         ba.
$ echo -en 'a\nb\n' | perl -pe'$\=$_.$\}{' | xxd -g 1
0000000: 62 0a 61 0a                                      b.a.

Bagaimana itu bekerja

Seperti dijelaskan di sini , -pswitch pada dasarnya membungkus while (<>) { ... ; print }program, sehingga kode sumbernya setara dengan

 while(<>)
 {
   $\ = $_ . $\
 }
 print

Untuk setiap baris input, kami menambahkan baris saat ini ( $_) ke $\(awalnya tidak terdefinisi), memperbarui yang terakhir dengan hasilnya.

Setelah semua baris diproses, printcetak nilai variabel lokal $_(tidak ditentukan dalam lingkup ini), diikuti oleh pemisah catatan keluaran ( $\).

Pyth, 4 byte

j_.z

.zadalah input yang dipisahkan oleh garis sebagai daftar, _membalikkannya dan jmenggabungkannya dengan karakter, yang secara default adalah \n.

FlogScript , 2 byte

)"

(Cobalah golf anarki .)

The )memungkinkan --in-out-line-arraymodus, dan sisanya dari program ini adalah ", membalikkan array baris.

Retina , 7 byte

!rm`.*$

Dengan satu regex, Retina berjalan dalam mode Match. Ini biasanya hanya mencetak jumlah kecocokan, tetapi dengan !kami mengkonfigurasinya untuk mencetak kecocokan yang sebenarnya sebagai gantinya (dipisahkan oleh baris baris).

Regex sebenarnya hanyalah .*$. .*cocok dengan baris apa saja (berpotensi kosong), karena .dapat cocok dengan karakter apa pun kecuali umpan baris. Saya akan ke $dalam sebentar lagi.

Bagaimana kita membuatnya mencetak pertandingan secara terbalik? Dengan memanfaatkan mode pencocokan kanan-ke-kiri .NET, diaktifkan dengan r. Ini berarti mesin regex mulai di akhir string ketika mencari yang cocok dan bekerja mundur.

Akhirnya, mbuatlah yang $cocok dengan akhir baris, bukan akhir dari string. Mengapa kita membutuhkan itu? Masalahnya adalah .*menghasilkan kecocokan yang asing. Pertimbangkan substitusi regex

s/a*/$0x/

diterapkan pada input baaababaa. Anda akan berpikir ini akan menghasilkan baaaxbaxbaax, tetapi sebenarnya memberi Anda baaaxxbaxxbaaxx. Mengapa? Karena setelah mencocokkan aaakursor mesin adalah antara adan b. Sekarang tidak dapat lagi cocok dengan as, tetapi a*juga puas dengan string kosong. Ini berarti, setelah setiap pertandingan Anda mendapatkan pertandingan kosong yang lain.

Kami tidak ingin itu ada di sini, karena itu akan memperkenalkan baris kosong tambahan, jadi kami membuang kecocokan yang asing (yang berada di awal garis, karena mode kanan-ke-kiri) dengan mengharuskan kecocokan mencakup akhir garis.

Haskell, 34 byte

main=interact$concat.reverse.lines

[sunting]

Disimpan satu byte dengan mengganti unlinesdengan concat.

CJam, 7 byte

qN/W%N*

Membaca stdin, mencetak ke stdout.

Penjelasan:

q       Get input.
N/      Split at newlines.
W%      Reverse list.
N*      Join with newlines.

Pyth, 5 byte

jb_.z

Ini membalik urutan garis dengan pendekatan split-reverse-join sederhana, tetapi tidak seperti tac .

Cobalah online.

Befunge-93, 17 byte

~:1+!#v_
>:#,_@>$

Tidak ada yang mewah di sini; cukup letakkan semuanya di tumpukan, lalu lepas.

Bash Murni (tidak ada utilitas eksternal), 56

mapfile a
for((i=${#a[@]};i--;));{
printf %s "${a[i]}"
}

Ini adalah salah satu dari sedikit jawaban untuk melakukan tacpersaingan yang tepat , seperti yang ditanyakan dalam komentar Dennis :

$ echo -en 'a\nb' | ./tacemu.sh | xxd -g 1
0000000: 62 61 0a                                         ba.
$ echo -en 'a\nb\n' | ./tacemu.sh | xxd -g 1
0000000: 62 0a 61 0a                                      b.a.
$ 

Ruby, 16 byte

puts [*$<].reverse

JavaScript (SpiderMonkey Shell), 38 byte

[...read(readline())].reverse().join``

Cukup mudah

read() membaca file

readline() membaca string dari STDIN

[...str]akan membagi str menjadi array karakter

reverse() akan membalikkan array

join`` akan collpase array menjadi string

Python 2, 52 byte

import sys;print''.join(sys.stdin.readlines()[::-1])

C #, 179 171 byte

using B=System.Console;class A{static void Main(){var a=new System.Collections.Stack();string b;while((b=B.ReadLine())!=null)a.Push(b);foreach(var c in a)B.WriteLine(c);}}

Membaca baris, menempatkannya di tumpukan, dan kemudian menulisnya mundur. Saya akan menggunakan Mathematica untuk ini, tetapi tidak memiliki arti EOF.

sed, 9 byte

1!G;h;$!d

Tidak ingin upvote, ini adalah sed-liner terkenal.

Perl, 16 byte

print reverse<>

Powershell, 41 byte

$a=$args|%{gc $_};[array]::Reverse($a);$a

Menyimpan konten file baris demi baris a, membalikkan adan akhirnya mencetaknya.

GolfScript, 7 byte

n/-1%n*

Tes online di sini .

Burlesque , 6 byte

ln<-uN

lnmemisahkan garis, <-membalikkan, uNmenggabungkan garis dan format untuk keluaran mentah.

Bash, 48 43 karakter

(Terinspirasi oleh Digital Trauma 's Bash jawaban . Upvotes untuk ide harus pergi ke dia.)

mapfile -c1 -C's=$2$s;set'
printf %s "$2$s"

Contoh dijalankan:

bash-4.3$ echo -en 'a\nb' | bash tac.sh | xxd -g 1
0000000: 62 61 0a                                         ba.

bash-4.3$ echo -en 'a\nb\n' | bash tac.sh | xxd -g 1
0000000: 62 0a 61 0a                                      b.a.

GNU Awk, 27 karakter

(Terinspirasi oleh Ed Morton 's GNU AWK jawaban . CW karena saya tidak dimaksudkan untuk membajak solusinya.)

{s=$0RT s}END{printf"%s",s}

Perhatikan bahwa dengan mengubah RT→ RSini menjadi Awk standar portabel tetapi kehilangan kemampuan untuk mempertahankan ketiadaan baris baru final.

Contoh dijalankan:

bash-4.3$ echo -en 'a\nb' | awk '{s=$0RT s}END{printf"%s",s}' | xxd -g 1
0000000: 62 61 0a                                         ba.

bash-4.3$ echo -en 'a\nb\n' | awk '{s=$0RT s}END{printf"%s",s}' | xxd -g 1
0000000: 62 0a 61 0a                                      b.a.

SNOBOL, 42 byte

S S =INPUT CHAR(10) S :S(S)
 OUTPUT =S
END

Gema, 25 karakter

*\n=@set{s;$0${s;}}
\Z=$s

Contoh dijalankan:

bash-4.3$ echo -en 'a\nb' | gema '*\n=@set{s;$0${s;}};\Z=$s'
ba

bash-4.3$ echo -en 'a\nb\n' | gema '*\n=@set{s;$0${s;}};\Z=$s'
b
a

Hassium , 90 Bytes 86 Bytes

use IO;func main(){c=File.readLines(args[0]);for(x=c.length-1;x>=0; println(c[x--]))0;

Lihat diperluas di sini

sed, 7 byte

G;h;$!d

Ini bekerja untuk saya (dan ini solusi terpendek di tempat lain), tetapi saya tidak benar-benar ingin mencari tahu mengapa. Saya hanya bermain-main dengan trik 9-byte yang terkenal sampai saya menemukan ini. Saya kira Gbaris pertama tidak melakukan apa-apa?

JavaScript (Node.js), 91 Bytes

console.log(require('fs').readFileSync(process.argv[2])+"".split(d="\n").reverse().join(d))

Bash + utilitas umum, 25

tr \\n ^G|rev|tr ^G \\n|rev

Ini ^Gadalah literalBEL karakter . Saya berasumsi inputnya hanya ascii yang bisa dicetak.

Ini transforms seluruh input ke satu baris dengan mengganti baris baru dengan BELs, kemudian reverses baris itu, kemudian transforms kembali ke multiline, kemudian reverses setiap baris lagi, untuk mendapatkan output yang diinginkan.

MATLAB, 44

@(x) strjoin(fliplr(strsplit(x,'\n')),'\n');

Pisahkan string di baris baru, membalik array yang dihasilkan, kemudian bergabung kembali dengan karakter baris baru.

Julia, 65 byte

open(s->print(join(reverse([l for l=readlines(s)]),"")),ARGS[1])

Ini mengambil file sebagai argumen baris perintah dan mencetak barisnya dalam urutan terbalik. Baris baru yang tertinggal dipindahkan ke depan, tidak sepertitac , yang sah.

Tidak Disatukan:

function p(s::Stream)
    # Create a vector of the lines of the input stream
    L = [l for l in readlines(s)]

    # Reverse the vector and join it back into a string
    j = join(reverse(L), "")

    # Print the string to STDOUT
    print(j)
end

# Open the file specified in the first command line argument
# and apply the function p to its contents
open(p, ARGS[1])

Pip , 3 + 2 = 5 byte

Menggunakan rdan nbendera; dibaca dari stdin.

RVg

The rbendera membaca stdin dan menyimpannya sebagai daftar baris dalam g(yang biasanya daftar baris perintah ar g s). Kami kemudian membalik daftar itu, dan itu dicetak secara otomatis. The ndaftar penyebab bendera untuk menjadi output dengan baris baru sebagai pemisah.