Sign up ×
Programming Puzzles & Code Golf Stack Exchange is a question and answer site for programming puzzle enthusiasts and code golfers. It's 100% free, no registration required.

Between the kitten question and seeing this question at U&L about some sed magic, how about implementing tac?


Objective

Implement a program that will reverse and print the lines in a file.


Input

A file, provided as a name or via standard input


Output

The lines, reversed, to standard out.


Scoring

Bytes of source code.

share|improve this question
6  
tac is a bit strange when it comes to trailing linefeeds. It transforms a\nb\n (trailing linefeed) into b\na\n and a\nb (no trailing linefeed) into ba\n. Is this how our code it supposed to behave? –  Dennis yesterday
    
Related –  Martin Büttner yesterday
6  
Also, if we have to replicate tac's behavior, a 3 byte Bash answers that executes tac is only a matter of time... –  Dennis yesterday
    
At the time of writing this had 6 votes but 14 answers... Don't forget to vote for questions if you think they're interesting, folks! –  Mauris 17 hours ago
1  
@Dennis at this point probably best to leave undefined. –  Nick T 16 hours ago

28 Answers 28

GS2, 3 bytes

* +

The three bytes are, in order, split lines, reverse, and join lines.

share|improve this answer

Pyth, 4 bytes

j_.z

.z is the input separated by lines as a list, _ reverses it and j joins it by a character, which by default is \n.

share|improve this answer

Retina, 7 bytes

!rm`.*$

With a single regex, Retina runs in Match mode. This normally just prints the number of matches, but with ! we configure it to print the actual matches instead (separated by linefeeds).

The actual regex is merely .*$. .* matches any line (potentially empty), because . can match any character except linefeeds. I'll get to the $ in a minute.

How do we make it print the matches in reverse? By making use of .NET's right-to-left matching mode, activated with the r. This means the regex engine starts at the end of the string when looking for matches and works backwards.

Finally, the m makes the $ match the end of a line instead of the end of the string. Why do we even need that? The trouble is that .* generates extraneous matches. Consider the regex substitution

s/a*/$0x/

applied to the input baaababaa. You'd think this would yield baaaxbaxbaax, but it actually gives you baaaxxbaxxbaaxx. Why? Because after matching aaa the engine's cursor is between the a and the b. Now it can't match any more as, but a* is also satisfied with an empty string. This means, after every single match you get another empty match.

We don't want that here, because it would introduce additional empty lines, so we discard those extraneous matches (which are at the beginnings of the lines, due to the right-to-left mode) by requiring that matches include the end of the line.

share|improve this answer

CJam, 7 bytes

qN/W%N*

Reads stdin, prints to stdout.

Explanation:

q       Get input.
N/      Split at newlines.
W%      Reverse list.
N*      Join with newlines.
share|improve this answer

Pyth, 5 bytes

jb_.z

This reverses the order of the lines with a simple split-reverse-join approach, but not quite like tac.

Try it online.

share|improve this answer

FlogScript, 2 bytes

)"

(Try it on anarchy golf.)

The ) enables --in-out-line-array mode, and the rest of the program is ", reversing the array of lines.

share|improve this answer
    
Argh, you beat me to it! –  mbomb007 17 hours ago

Perl, 11 bytes

$\=$_.$\}{

Behaves exactly like tac. This code requires the -p switch, which I have counted as 1 byte.

Test runs

$ 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.

How it works

As explained here, the -p switch basically wraps while (<>) { ... ; print } around the program, so the source code is equivalent to

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

For each line of input, we prepend the current line ($_) to $\ (initially undefined), updating the latter with the result.

After all lines have been processed, print prints the value of the local variable $_ (undefined in this scope), followed by the output record separator ($\).

share|improve this answer
    
Care to explain how this works? –  xebtl 23 hours ago
2  
@xebtl Evilly. Adding the -p switch wraps your code in a loop that begins while(<>){ and ends } continue { print }, which allows filtering input just by modifying $_. $\=$_.$\ prepends each line of input to the output record terminator, and the }{ ends the perl-supplied while block prematurely, so the continue block is no longer attached to it. So all the lines of input are added to $\ in reverse order, then at the end the continue { print } eventually runs, printing "nothing" ($_ will be undef after the end of input), but with a terminator of $\. –  hobbs 16 hours ago
    
@xebtl grr, code formatting in comments seems a bit broken where backslashes and backticks come near each other. Perhaps you can guess at what I was trying to say. –  hobbs 16 hours ago
    
That really is devious. Thanks for the explanation. –  xebtl 16 hours ago
    
@hobbs I've fixed the formatting. If inline code ends with a backslash, you can use double backticks instead. –  Dennis 16 hours ago

Perl, 16 bytes

print reverse<>
share|improve this answer
    
@Dennis oops, now reverted. –  steve yesterday

Powershell, 41 bytes

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

Stores the content of a file line by line in a, reverses a and finally prints it.

share|improve this answer

GolfScript, 7 bytes

n/-1%n*

Online test here.

share|improve this answer

Burlesque, 6 bytes

ln<-uN

ln splits lines, <- reverses, uN joins lines and formats for raw output.

share|improve this answer

C#, 179 bytes

using B=System.Console;class A{static void Main(){var a=new System.Collections.Generic.List<string>();string b;while((b=B.ReadLine())!=null)a.Insert(0,b);a.ForEach(B.WriteLine);}}

Reads lines, placing them at the beginning of a list, and then writes them in normal order. I would use Mathematica for this, but it has no sense of EOF.

share|improve this answer

Pure Bash (no external utilities), 56

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

This is one of the few answers to do exact tac emulation, as asked about in Dennis' comment:

$ 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.
$ 
share|improve this answer
    
Nice and inspiring. –  manatwork 15 hours ago

Ruby, 16 bytes

puts [*$<].reverse
share|improve this answer

Python 2, 52 bytes

import sys;print''.join(sys.stdin.readlines()[::-1])
share|improve this answer
1  
Doesn't input() read one line from stdin? –  Mauris 22 hours ago
    
@Mauris Edited it –  Beta Decay 19 hours ago
    
What about import sys;print sys.stdin.read()[::-1] ? –  dieter 16 hours ago
    
@dieter That reverses each character, the challenge asks for just the lines to be reversed –  Beta Decay 16 hours ago
    
ok my bad - Didn't read it carefully, sorry –  dieter 15 hours ago

Gema, 25 characters

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

Sample run:

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
share|improve this answer

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;

See expanded here

share|improve this answer
1  
I you can shorten this a lot by abusing for syntax. See a sample here –  FryAmTheEggman 16 hours ago
    
Good call @FryAmTheEggman! I added it in. –  Jacob Misirian 16 hours ago

Befunge-93, 17 bytes

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

Nothing fancy here; just put everything on the stack, then pop it off.

share|improve this answer

Bash, 48 43 characters

(Inspired by Digital Trauma's Bash answer. Upvotes for the idea should go to him.)

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

Sample run:

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.
share|improve this answer
    
I think you can do mapfile -c1 -Cf instead of mapfile -c1 -Cf a. –  Digital Trauma 15 hours ago
    
Correct. I also discovered it in meantime, just tried something around that tricky -C first. –  manatwork 15 hours ago

sed, 9 bytes

1!G;h;$!d

No upvote wanted, this is a famous sed one-liner.

share|improve this answer
10  
If it's not your own work, I suggest making your answer community wiki. –  Thomas Kwa yesterday

sed, 7 bytes

G;h;$!d

This works for me (and it's the shortest solution elsewhere), but I don't really want to find out why. I just messed around with the famous 9-byte trick until I found this. I guess Ging the first line does nothing?

share|improve this answer
1  
Actually does something: your code produces an extra newline at the end of output. (G appends a newline and the content of hold space to the pattern space. While appending the content of empty hold space is indeed harmless, the newline is still appended.) –  manatwork 15 hours ago

JavaScript(Node.js), 91 Bytes

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

Bash + common utilities, 25

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

Here the ^G is a literal BEL character. I'm assuming the input is only printable ascii.

This transforms the entire input to one line by replacing newlines with BELs, then reverses that line, then transforms back to multiline, then reverses each line again, to get the desired output.

share|improve this answer

MATLAB, 44

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

Splits the string at new lines, flips the resulting array, then rejoins with new line characters.

share|improve this answer

Julia, 65 bytes

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

This takes a file as a command line argument and prints its lines in reverse order. Trailing newlines are moved to the front, unlike tac, which is legit.

Ungolfed:

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])
share|improve this answer

Pip, 3 + 2 = 5 bytes

Uses the r and n flags; reads from stdin.

RVg

The r flag reads stdin and stores it as a list of lines in g (which is normally a list of command-line args). We then reverse that list, and it is auto-printed. The n flag causes lists to be output with newline as a separator.

share|improve this answer

JavaScript (SpiderMonkey Shell), 38 bytes

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

Pretty simple


read() reads a file

readline() reads a string from STDIN

[...str] will split str into an array of chars

reverse() will reverse the array

join`` will collpase the array into a string

share|improve this answer

STATA, 46 bytes

inf str99 v using a.b
g a=-_n
so a
l v,noo noh

Expects input as a file called a.b, with each line no more than 99 characters. Reads in a file and labels the variable v. Makes a new variable called a with the negative index of it. Sort by the negative index (i.e. reverse order) and then list every thing in sorted (i.e. reverse) order.

For a longer length of lines, put quotes around each line and use (42 bytes):

insheet using a.b
g a=-_n
so a
l v,noo noh
share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.