งาน:

ให้.txtไฟล์ที่มีเฟรมของ ASCII art แต่ละอันคั่นด้วย a \n(ดูตัวอย่างนี้ถ้าคุณไม่ชัดเจน) เอาท์พุทภาพเคลื่อนไหวที่มีเฟรมที่มี 1 เฟรมต่อวินาที

โปรดทราบว่ามีการต่อท้าย\nเฟรมสุดท้าย

แต่ละขนาดเฟรมจะเป็น:

• X <80
• Y <20

กฎระเบียบ

• ต้องลบเฟรมก่อนหน้าก่อนหน้าเฟรมถัดไปดังนั้นเพียงพิมพ์แต่ละเฟรมลงบนเทอร์มินัลไม่ใช่คำตอบที่ถูกต้อง
• ใหม่คุณสามารถคว้าชื่อไฟล์ได้ตามที่คุณต้องการไม่ว่าจะเป็นการเก็บไว้ในตัวแปรหรือจาก sys args
• ใหม่รูปภาพจะต้องวนซ้ำอย่างไม่มีกำหนด
• นี่คือรหัสกอล์ฟ: โปรแกรมที่เล็กที่สุดชนะ

ตัวอย่าง

อินพุต

0   0
0   0
00000
0   0
0   0

00000
0
00000
0   
00000

0   0
 0 0
  0
  0
  0

เอาท์พุต

ยกเลิกแข็งแรงเล่นกอล์ฟ

import curses, time

stdscr = curses.initscr()

Frames = file.read(file('Frames.txt')).split('\n')
while True:
    y = 0
    for i in range(len(Frames)):
        stdscr.addstr(y,0,Frames[i])
        stdscr.refresh()
        y += 1
        if Frames[i] == '':
            y = 0
            stdscr.clear()
            time.sleep(1)

Mathematica, 41 ไบต์

Import@f~StringSplit~"\n\n"~ListAnimate~1

fคาดว่าชื่อไฟล์จะถูกเก็บไว้ในตัวแปร

นี่เป็นครั้งแรกที่กฎของ Mathematica มีความสำคัญ@และ.~.~.เป็นสิ่งที่ฉันต้องการ

Btw ข้อมูลโค้ดนี้อาจผิดพลาดอย่างมากหากส่วนขยายของไฟล์นั้นเป็นอย่างอื่น.txt(เนื่องจาก Mathematica จะพยายามเดาวิธีการนำเข้าตามนั้น) แต่โชคดีที่การสิ้นสุดไฟล์เป็นส่วนหนึ่งของข้อกำหนดการท้าทาย

Bash, 82

IFS=
clear
for((;;)){
while read a;do
[ "$a" ]&&echo $a||(sleep 1;clear)
done<$1
}

สมมติว่าชื่อไฟล์ของไฟล์. txt ถูกระบุเป็นอาร์กิวเมนต์แรกของสคริปต์

โปรดทราบว่าจะต้องมีบรรทัดว่างต่อท้ายที่ท้ายไฟล์. txt เพื่อให้ทำงานได้

ขอขอบคุณเป็นพิเศษกับ @professorfish และ @DigitalTrauma

Ruby, 88 86 56 55 ตัวละคร

$<.read.split($/*2).cycle{|i|system'cls';$><<i;sleep 1}

โปรแกรมนี้สมมติว่าชื่อไฟล์ถูกกำหนดเป็นอาร์กิวเมนต์แรก

ขอบคุณมากที่ Ventero สำหรับการแบ่งปันการปรับปรุงที่ยอดเยี่ยม!

ยกเลิกแข็งแรงเล่นกอล์ฟ:

$<.read.split($/*2).cycle{ |i|   # read file, split by two newlines, and loop
    system 'cls'   # clear screen
    $><<i   # print the current array item
    sleep 1   # sleep one second
}

โปรแกรมนี้อ่านไฟล์แยกไฟล์เป็นชิ้น ๆ แล้วพิมพ์แต่ละอันแยกกันหลังจากล้างหน้าจอ clsใช้ได้กับ Windows เท่านั้น ตัวแปรที่มีclearคือ 57 ตัวอักษร

Dyalog APL (64)

(ไม่สามารถเอาชนะ Mathematica ได้ในตอนนี้ดูเหมือนจะมีทุกอย่างในตัว)

{⎕ML←3⋄{⎕SM←1 1,⍨⊂⊃⍵⊂⍨~⍵∊⎕TC⋄⎕DL 1}¨M⊂⍨~(4/1)⍷⎕TC∊⍨M←80 ¯1⎕MAP⍵}

นี่คือฟังก์ชั่นที่ใช้ชื่อไฟล์เป็นอาร์กิวเมนต์ มันถือว่าไฟล์อยู่ใน\r\nรูปแบบWindows ( )

คำอธิบาย:

• ⎕ML←3: ตั้งค่าระดับการย้ายข้อมูลเป็น 3 (อนุญาตให้⊂ใช้เป็นคุณลักษณะแยกของ APL2)
• M←80 ¯1⎕MAP⍵: อ่านไฟล์ที่กำหนดโดยอาร์กิวเมนต์ที่ถูกต้องว่าเป็นไฟล์ ASCII และเก็บเนื้อหาMไว้
• M⊂⍨~(4/1)⍷⎕TC∊⍨M: ค้นหาการเกิดขึ้นทั้งหมดของอักขระควบคุมเทอร์มินัลสี่ตัวที่ต่อเนื่องกันและแยกออกMจากกัน สิ่งนี้ทำให้แต่ละเฟรม
• {... }¨: สำหรับแต่ละรายการเหล่านี้ ...
  • ⊂⊃⍵⊂⍨~⍵∊⎕TC: แยกอาร์กิวเมนต์ (= หนึ่งเฟรม) บนอักขระควบคุมเทอร์มินัลแล้วเปลี่ยน vector-of-vector เป็นเมทริกซ์ (ดังนั้นมันจะแสดงแต่ละบรรทัดบนบรรทัดแยกต่างหากนี่เป็นสิ่งจำเป็นเพราะ⎕SMไม่เข้าใจอักขระควบคุม)
  • ⎕SM←1 1,⍨: จากนั้นแสดงไว้ที่มุมบนซ้ายของ⎕SMหน้าต่าง
  • ⎕DL 1: แล้วรอหนึ่งวินาที

Awk, 53

BEGIN{RS=RS RS}{system("clear")}1;{system("sleep 1")}

กฎใหม่:

Awk, 74

BEGIN{RS=z}{a[NR]=$0}END{while(!system("sleep 1;clear"))print a[i++%NR+1]}

Perl, 40

seek ARGV,0,!eof;sleep 1;system clear

ทำงานเป็น

perl -p00 frames.pl < animation.txt

(เช่นไฟล์ภาพเคลื่อนไหวถูกอ่านผ่าน STDIN) เพิ่ม 3 ไบต์p00เพื่อนับ มัน 2 ตัวอักษรที่สั้นกว่าเช่น38บน Windows เพราะแทนcls clearหรือจะพกพาได้:

seek ARGV,0,!eof;sleep 1;system$^O=~/Win/?cls:clear

หรือยืดกฎนิดหน่อย (จากนั้น 31 + 3 = 34 ):

seek ARGV,sleep(1)&`reset`,!eof

Rebol, 74

forever[foreach s split to-string read f"^/^/"[call"clear"print s wait 1]]

fคาดว่าชื่อไฟล์จะถูกเก็บไว้ในตัวแปร ด้านล่างนี้เป็นตัวอย่างที่ไม่ดี

f: %ascii-art.txt

forever [
    foreach s split to-string read f "^/^/" [
        call "clear"
        print s
        wait 1
    ]
]

Java, 678 ตัวอักษร (เมื่อเล่นกอล์ฟ)

แน่นอนกับ GUI เนื่องจากการทำสิ่งต่าง ๆ ในคอนโซลดูดกับ Java โดยเฉพาะถ้าคุณต้องการล้างหน้าจอ ...

import java.awt.Font;
import java.io.File;
import java.util.Scanner;

import javax.swing.JFrame;
import javax.swing.JTextArea;
import javax.swing.SwingWorker;

public class G extends JFrame
{
    static JTextArea b = new JTextArea();

    G()
    {
        setSize(170, 370);

        add(b);
        b.setFont(new Font(Font.MONOSPACED, 0, 50));
    }

    public static void main(final String[] args)
    {   
        new G().setVisible(true);
        new SwingWorker()
        {
            protected Void doInBackground()
            {
                for(;;)
                {
                    try(Scanner s = new Scanner(new File(args[0])))
                    {
                        String l = null;
                        while(s.hasNextLine())
                        {                           
                            if(l == null  || (l = s.nextLine()).isEmpty())
                            {
                                Thread.sleep(1000);
                                b.setText(l == null ? (l = s.nextLine()) + '\n' : null);
                            }
                            else
                                b.setText(b.getText() + l + '\n');
                        }
                    }
                    catch(Exception i){}
                }
            }
        }.execute();
    }
}

คอบร้า - 163

class P
    def main
        while 1
            for i in File.readAllLines("t.txt")
                print i
                if i=="",.x
            .x
    def x
        Threading.Thread.sleep(1000)
        Console.clear

Python 117

fถือว่าชื่อไฟล์จะถูกเก็บไว้ในตัวแปร

import time,os
while 1:
 for i in file.read(file(f)).split('\n'):
  print i
  if i=='':time.sleep(1);os.system('cls')

หมายเหตุ: แทนที่'cls'ด้วย'clear'if บนระบบที่ใช้ unix เพิ่ม 2 chrs

ctl+C ที่จะเลิก

Groovy - 121 119 ตัวอักษร

ส่งคำตอบของ ProgramFOXไปที่ Groovy 2.2.1 "คอนโซลที่ชัดเจน" อ่อนแอ

แก้ไข : แทนที่การปิดแบบเรียกซ้ำด้วยการเรียบง่ายขณะที่วนซ้ำซึ่งสั้นกว่าและไม่มีการล้นสแต็ก

a=new File(args[0]).text.split "\n\n";i=0;p={println it};while(1){p a[i++%a.size()];Thread.sleep(1000);80.times{p ""}}

Ungolfed:

a = new File(args[0]).text.split "\n\n"
i = 0

p = { println it }

while(1) {
    p a[i++%a.size()]
    Thread.sleep(1000)
    80.times{p ""}
}

GNU sed, 32

1eclear
/^$/{
esleep 1;clear
d
}

Groovy, 81

นี่เป็นวิธีที่มีประโยชน์มากขึ้น:

new File(args[0]).text.split("\n\n").each{["cls"].execute();print it;sleep(1000)}

ungolfed

new File(args[0]).text.split("\n\n").each{
    ["cls"].execute()
    print it
    sleep(1000)
}

C # 226

ทำไมต้องเอ๊ะ

namespace System{class P{static void Main(){for(;;)foreach(var x in Text.RegularExpressions.Regex.Split(new IO.StreamReader("f.txt").ReadToEnd(),"\n\r\n")){Console.Clear();Console.WriteLine(x);Threading.Thread.Sleep(1000);}}}}

ยกเลิกการตีลูก :

namespace System
{
    class P
    {
        static void Main()
        {
            for(;;)
            foreach (var x in Text.RegularExpressions.Regex.Split(new IO.StreamReader("f.txt").ReadToEnd(), "\n\r\n"))
            {
                Console.Clear();
                Console.WriteLine(x); 
                Threading.Thread.Sleep(1000);
            }
        }
    }
}

หรือใน LINQPAD (ดังนั้น C # สามารถอยู่กึ่งแข่งขันกับ uber shorthand langs: D)

C # LINQPAD - 134

for(;;)foreach(var x in Regex.Split(new StreamReader("f.txt").ReadToEnd(),"\n\r\n")){x.Dump();Thread.Sleep(1000);Util.ClearResults();}

ฉันรู้สึกสกปรกเล็กน้อย แต่เดี๋ยวก่อนนี่คือรหัสกอล์ฟ

SmileBASIC ขนาด 74 ไบต์

F=LOAD(F)@L
IF" "*!CSRX>F[I]THEN WAIT 60CLS
?F[I];
I=(I+1)MOD LEN(F)GOTO@L

F ควรเป็นชื่อไฟล์