Tugas:

Diberikan .txtfile dengan bingkai ASCII seni masing-masing dipisahkan oleh \n(lihat contoh ini jika Anda tidak jelas) menghasilkan gambar bergerak dengan bingkai dengan 1 bingkai per detik.

Perhatikan bahwa ada jejak \ndi bingkai terakhir.

Setiap dimensi frame akan:

• X <80
• Y <20

Aturan

• Frame Sebelumnya harus dihapus sebelum yang berikutnya ditampilkan, jadi hanya mencetak setiap frame ke terminal bukan jawaban yang valid.
• Baru Anda dapat mengambil nama file seperti yang Anda inginkan, baik dari itu disimpan dalam variabel atau dari sys args.
• Baru Gambar harus diulang tanpa batas
• Ini adalah kode golf: program terkecil menang.

Contoh

Memasukkan

0   0
0   0
00000
0   0
0   0

00000
0
00000
0   
00000

0   0
 0 0
  0
  0
  0

Keluaran

Tidak bermain golf

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 byte

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

Berharap nama file disimpan dalam variabel f.

Ini adalah yang pertama kali diutamakan aturan Matematika untuk @dan.~.~. persis seperti yang saya butuhkan.

Btw, cuplikan ini bisa jadi sangat salah jika ekstensi file adalah hal lain selain .txt(karena Mathematica akan mencoba menebak cara melakukan impor berdasarkan itu), tetapi untungnya akhiran file itu adalah bagian dari spesifikasi tantangan.

Bash, 82

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

Mengasumsikan nama file dari file .txt disediakan sebagai argumen pertama ke skrip.

Perhatikan bahwa baris kosong yang tertinggal harus ada di akhir file .txt agar ini berfungsi.

Terima kasih khusus kepada @professorfish dan @DigitalTrauma.

Ruby, 88 86 56 55 karakter

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

Program ini mengasumsikan nama file diberikan sebagai argumen pertama.

Terima kasih banyak kepada Ventero karena berbagi peningkatan hebat!

Tidak golf:

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

Program ini membaca file, membaginya menjadi potongan-potongan, dan mencetak setiap potongan secara terpisah setelah membersihkan layar. clshanya berfungsi di Windows. Varian dengan clearadalah 57 karakter.

Dyalog APL (64)

(Tidak dapat mengalahkan Mathematica kali ini. Tampaknya memiliki built-in untuk semuanya.)

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

Ini adalah fungsi yang menggunakan nama file sebagai argumennya. Diasumsikan file ada di Windows (\r\n format ).

Penjelasan:

• ⎕ML←3: setel level migrasi ke 3 (memungkinkan ⊂untuk digunakan sebagai fitur split APL2)
• M←80 ¯1⎕MAP⍵: baca file yang diberikan oleh argumen yang tepat sebagai file ASCII, dan simpan konten dalam M.
• M⊂⍨~(4/1)⍷⎕TC∊⍨M: temukan semua kemunculan empat karakter kontrol terminal berturut-turut, dan bagi M-bagi. Ini memberi setiap frame.
• {...}¨ : untuk masing-masing ...
  • ⊂⊃⍵⊂⍨~⍵∊⎕TC: pisahkan argumen (= satu frame) pada karakter kontrol terminal, dan kemudian ubah vektor-vektor menjadi sebuah matriks (sehingga akan menampilkan setiap baris pada baris yang terpisah, ini diperlukan karena ⎕SM tidak memahami karakter kontrol.)
  • ⎕SM←1 1,⍨: lalu tampilkan di kiri atas menu ⎕SM jendela.
  • ⎕DL 1: dan kemudian tunggu satu detik.

Awk, 53

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

Aturan baru:

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

jalankan sebagai

perl -p00 frames.pl < animation.txt

(yaitu file animasi dibaca melalui STDIN). 3 byte untuk p00ditambahkan ke hitungan. Ini 2 karakter lebih pendek yaitu 38 pada Windows karena clsbukan clear. Atau, untuk menjadi portabel:

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

Atau, meregangkan aturan sedikit (dan kemudian 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]]

Berharap nama file disimpan dalam variabel f. Di bawah ini adalah contoh yang tidak dipisahkan:

f: %ascii-art.txt

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

Jawa, 678 karakter (saat golf)

Tentu saja dengan GUI, karena melakukan hal-hal di konsol sucks dengan Java, terutama jika Anda ingin menghapus layar ...

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

Cobra - 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

Mengasumsikan nama file disimpan dalam variabel 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')

Catatan: ganti 'cls'dengan 'clear'if pada sistem berbasis unix, tambahkan 2 chrs.

ctl+C berhenti

Groovy - 121 119 karakter

Jawaban PortFO ProgramFOX untuk Groovy 2.2.1. "Konsol yang jelas" lemah.

sunting : diganti penutupan rekursif dengan loop sementara sederhana, yang lebih pendek dan tidak ada stack overflow

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 ""}}

Tidak Disatukan:

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

Ini adalah cara yang lebih asyik:

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

Kenapa repot-repot ya?

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

Tidak golf :

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

Atau di LINQPAD (jadi C # dapat tetap semi-kompetitif dengan langs singkatan uber: 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();}

Saya merasa agak kotor, tapi hei, ini kode-golf.

SmileBASIC, 74 byte

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

F harus berupa nama file