在小猫问题和在U＆L看到有关sed魔术的问题之间，如何实施tac？

目的

实现一个程序，该程序将反转并打印文件中的行。

输入值

作为名称或通过标准输入提供的文件

输出量

线颠倒了，以标准输出。

计分

源代码字节。

code-golf string

— 尼克·T
source

9

tac对于尾随换行有点奇怪。它将a\nb\n（尾随换行）转换为b\na\n和a\nb（不尾随换行）转换为 ba\n。这就是我们的代码应该如何表现吗？

— 丹尼斯

GS2，3个字节

* +

这三个字节依次是分割线，反向线和连接线。

— 递归的
source

9

Perl，11个字节

$\=$_.$\}{

行为完全一样tac。此代码需要-p切换，我将其计为1个字节。

试运行

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

怎么运行的

如所解释这里，所述-p开关基本上包裹while (<>) { ... ; print }程序周围，所以源代码等价于

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

对于每行输入，我们在当前行（$_）之前添加$\（最初是未定义的），并用结果更新后者。

处理print完所有行后，打印局部变量的值$_（在此范围内未定义），然后输出输出记录分隔符（$\）。

— 丹尼斯
source

关心解释这是如何工作的吗？

— xebtl

2

@xebtl邪恶。添加-p开关将您的代码包装在一个开始while(<>){和结束的循环中} continue { print }，允许仅通过修改过滤输入$_。$\=$_.$\将每行输入添加到输出记录终止符，并提前终止}{perl提供的while块，因此continue不再将该块连接到该块。因此，所有输入行都以$\相反的顺序添加，然后continue { print }最终运行，最后打印“ nothing”（$_输入结束后为undef），但终止符为$\。

— hobbs 2015年

@xebtl grr，在反斜杠和反引号彼此靠近的地方，注释中的代码格式似乎有点破损。也许您能猜出我想说的话。

— hobbs 2015年

1

@primo第一个示例显示在这种情况下会发生什么。输出将是奇怪的，但与tac完全一样。

— 丹尼斯

1

@Dennis第18页，这本书

— msh210 '16

8

Pyth，4个字节

j_.z

.z是输入，以行分隔为列表，_将其反转j并由一个字符连接，默认情况下为\n。

— 奥尔普
source

8

FlogScript，2个字节

)"

（尝试无政府状态的高尔夫。）

在)使--in-out-line-array模式，并且该程序的其余部分"，扭转线的阵列。

— 林恩
source

啊，你击败了我！

— mbomb007'2015-10-10

7

视网膜，7字节

!rm`.*$

使用单个正则表达式，Retina可以在“匹配”模式下运行。通常，这只是打印匹配项的数量，但通过!我们配置它来打印实际的匹配项（由换行分隔）。

实际的正则表达式仅仅是.*$。.*匹配任何行（可能为空），因为.可以匹配除换行符之外的任何字符。我待会儿到$。

我们如何使其反向打印比赛？通过使用.NET的从右到左匹配模式，该模式由激活r。这意味着正则表达式引擎在查找匹配项时从字符串的末尾开始，然后向后工作。

最后，m使$匹配项成为行的结尾而不是字符串的结尾。为什么我们甚至需要那个？问题是.*生成无关的匹配。考虑正则表达式替换

s/a*/$0x/

应用于输入baaababaa。您会认为这样会产生收益baaaxbaxbaax，但实际上能给您收益baaaxxbaxxbaaxx。为什么？因为匹配后aaa，引擎的光标位于a和之间b。现在，它不能再匹配as，但a*也对空字符串感到满意。这意味着，在每场比赛之后，您都会得到另一个空比赛。

我们在这里不希望这样，因为它会引入额外的空行，因此我们通过要求匹配包括末尾的内容来丢弃那些无关的匹配项（由于从右到左模式，它们位于行的开头）线。

— 马丁·恩德
source

6

Haskell，34个字节

main=interact$concat.reverse.lines

[编辑]

通过更换保存一个字节unlines用concat。

— ka
source

4

CJam，7个字节

qN/W%N*

读取标准输入，打印到标准输出。

说明：

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

— 雷托·科拉迪（Reto Koradi）
source

4

Pyth，5个字节

jb_.z

这通过简单的split-reverse-join方法颠倒了行的顺序，但是不太像tac。

在线尝试。

— 丹尼斯
source

4

Befunge-93，17个字节

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

这里没什么好看的；只需将所有内容放入堆栈，然后将其弹出即可。

— 凯文·W。
source

4

纯Bash（无外部公用程序），56

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

tac正如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.
$

— 数字创伤
source

尼斯而鼓舞人心。

— manatwork'2015-10-15

4

Ruby，16个字节

puts [*$<].reverse

— 达涅罗
source

4

JavaScript（SpiderMonkey Shell），38个字节

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

很简单

read() 读取文件

readline() 从STDIN读取一个字符串

[...str]将str分成一个char数组

reverse() 将反转数组

join`` 将数组整理为字符串

— 下山羊
source

4

Python 2，52字节

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

— Beta衰变
source

1

input（）不从stdin读取一行吗？

— Lynn

@毛里斯（Mauris）编辑了它

— Beta Decay

那import sys;print sys.stdin.read()[::-1]呢

— 节食者2015年

@dieter颠倒每个角色，挑战只要求颠倒线数

— Beta Decay 2015年

好的，我不好-读得不好，对不起

— 节食者2015年

4

C＃，179171字节

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

读取行，将它们放在堆栈中，然后向后写入。我会为此使用Mathematica，但是它没有EOF的意义。

— 军团哺乳动物978
source

3

sed，9个字节

1!G;h;$!d

无需支持，这是著名的sed单线。

— 史蒂夫
source

10

如果不是您自己的工作，我建议您制作答案社区Wiki。

— lirtosiast 2015年

3

Perl，16个字节

print reverse<>

— 史蒂夫
source

@Dennis哎呀，现在恢复了。

— 史蒂夫

3

Powershell，41个字节

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

将文件的内容逐行存储在中a，取反a，最后打印出来。

— sweerpotato
source

3

GolfScript，7个字节

n/-1%n*

在这里在线测试。

— 克里斯蒂安·卢帕斯库（Cristian Lupascu）
source

3

滑稽，6字节

ln<-uN

ln分割行，<-反转行，合并uN行和格式以获取原始输出。

— 林恩
source

3

重击，48 43个字符

（灵感来自Digital Trauma的Bash答案。对此想法的支持应该归他所有。）

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

样品运行：

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.

— 工作的人
source

我认为您可以mapfile -c1 -Cf代替mapfile -c1 -Cf a。

— Digital Trauma 2015年

正确。同时我也发现了它，只是先尝试了一些棘手的问题-C。

— manatwork

3

GNU Awk，27个字符

（受埃德·莫顿（Ed Morton）的GNU Awk答案启发。CW，因为我不想劫持他的解决方案。）

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

请注意，通过更改RT→ ，它将RS变为可移植的标准Awk，但失去了保留最终换行符的功能。

样品运行：

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.

— manatwork
source

您可以删除“％s”

— ninjalj 2015年

@ninjalj，仅当我们可以假定输入将永远不包含“％”时。

— manatwork

3

SNOBOL，42个字节

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

— 忍者
source

2

Gema，25个字符

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

样品运行：

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

— 工作的人
source

2

Hassium，90字节 86字节

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

看到这里展开

— 雅各布·米西里安（Jacob Misirian）
source

1

我可以通过滥用for语法将其缩短很多。在此处

— FryAmTheEggman

好的@FryAmTheEggman！我加入吧。

— 雅各布Misirian

2

sed，7个字节

G;h;$!d

这对我有用（这是其他地方最短的解决方案），但是我真的不想找出原因。在发现这个问题之前，我只是弄混了著名的9字节技巧。我猜G第一行什么都没有？

— 林恩
source

2

实际上可以做些事情：您的代码在输出的末尾产生了一个额外的换行符。（G将换行符和保留空间的内容追加到模式空间。尽管将空的保留空间的内容附加为确实无害，但仍附加换行符。）

— manatwork 2015年

2

JavaScript（Node.js），91字节

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

— 本·财富
source

您是说console.log((require('fs').readFileSync(process.argv[2])+"").split(d="\n").reverse().join(d))（92字节）吗？您当前的代码不会颠倒这行。

— 牙刷

2

Bash +通用工具，25

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

这里^G是一个文字BEL字符。我假设输入仅是可打印的ascii。

这tr通过用BELS替换换行符ansforms整个输入到一行，然后reverses该行，然后transforms回多，然后rev再次erses的每一行，以获得所需的输出。

— 数字创伤
source

2

MATLAB，44岁

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

在新行处分割字符串，翻转结果数组，然后以新行字符重新加入。

— 汤姆·卡彭特
source

2

朱莉娅，65个字节

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

这将文件作为命令行参数，并以相反的顺序打印其行。尾随的换行符移到最前面，这与tac合法的不同。

取消高尔夫：

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

— 亚历克斯·A
source

2

点，3 + 2 = 5字节

使用r和n标志；从标准输入读取。

RVg

该r标志的读标准输入，并将其存储在行的列表g（其通常的命令行AR的列表克或多个）。然后，我们反转该列表，并自动打印该列表。该n标志使列表以换行符作为分隔符输出。

— DLosc
source

实施“ TAC”：从文件反向打印行

目的

输入值

输出量

计分

GS2，3个字节

Perl，11个字节

试运行

怎么运行的

Pyth，4个字节

FlogScript，2个字节

视网膜，7字节

Haskell，34个字节

CJam，7个字节

Pyth，5个字节

Befunge-93，17个字节

纯Bash（无外部公用程序），56

Ruby，16个字节

JavaScript（SpiderMonkey Shell），38个字节

Python 2，52字节

C＃，179171字节

sed，9个字节

Perl，16个字节

Powershell，41个字节

GolfScript，7个字节

滑稽，6字节

重击，48 43个字符

GNU Awk，27个字符

SNOBOL，42个字节

Gema，25个字符

Hassium，90字节 86字节

sed，7个字节

JavaScript（Node.js），91字节

Bash +通用工具，25

MATLAB，44岁

朱莉娅，65个字节

点，3 + 2 = 5字节