L'obiettivo:

Dato un .txtfile con frame di arte ASCII separati ciascuno da un \noutput (vedere questo esempio se non si è chiari), viene emesso un filmato con frame con 1 frame al secondo.

Si noti che c'è un finale \nsul fotogramma finale.

Le dimensioni di ogni frame saranno:

• X <80
• Y <20

Le regole

• Il frame precedente deve essere cancellato prima che venga visualizzato il successivo, quindi la sola stampa di ciascun frame sul terminale non è una risposta valida.
• Nuovo Puoi prendere il nome del file come preferisci, sia da esso archiviato in una variabile che da sys args.
• Nuovo Le immagini devono essere ripetute in modo indefinito
• Questo è il codice golf: vince il programma più piccolo.

Esempio

Ingresso

0   0
0   0
00000
0   0
0   0

00000
0
00000
0   
00000

0   0
 0 0
  0
  0
  0

Produzione

Un-golfed

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

Si aspetta che il nome del file sia archiviato in una variabile f.

Questa è la prima volta che le regole di precedenza di Mathematica sono @e .~.~.sono esattamente il modo in cui ne ho bisogno.

A proposito, questo frammento potrebbe andare terribilmente storto se l'estensione del file è diversa da .txt(perché Mathematica proverà a indovinare come eseguire l'importazione in base a quello), ma per fortuna che la fine del file fa parte della specifica della sfida.

Bash, 82

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

Presuppone che il nome del file .txt sia fornito come primo argomento dello script.

Si noti che una riga vuota finale deve essere presente alla fine del file .txt affinché funzioni.

Un ringraziamento speciale a @professorfish e @DigitalTrauma.

Rubino, 88 86 56 55 caratteri

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

Questo programma presuppone che il nome del file sia indicato come primo argomento.

Grazie mille a Ventero per aver condiviso grandi miglioramenti!

Un-giocato a 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
}

Questo programma legge il file, lo divide in blocchi e stampa ogni blocco separatamente dopo aver cancellato lo schermo. clsfunziona solo su Windows. Una variante con clearè di 57 caratteri.

Dyalog APL (64)

(Questa volta non posso battere Mathematica. Sembra che sia integrato per tutto.)

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

Questa è una funzione che prende il nome file come argomento. Presuppone che il file sia in \r\nformato Windows ( ).

Spiegazione:

• ⎕ML←3: imposta il livello di migrazione su 3 (consentendo ⊂di essere utilizzato come funzionalità di suddivisione di APL2)
• M←80 ¯1⎕MAP⍵: leggi il file fornito dall'argomento corretto come file ASCII e archivia il contenuto in M.
• M⊂⍨~(4/1)⍷⎕TC∊⍨M: trova tutte le occorrenze di quattro caratteri consecutivi di controllo terminale e dividi Mquelli. Questo dà ad ogni frame.
• {... }¨: per ognuno di questi ...
  • ⊂⊃⍵⊂⍨~⍵∊⎕TC: dividi l'argomento (= un fotogramma) sui caratteri di controllo del terminale, quindi trasforma il vettore dei vettori in una matrice (quindi visualizzerà ogni riga su una riga separata, ciò è necessario perché ⎕SMnon comprende i caratteri di controllo).
  • ⎕SM←1 1,⍨: quindi visualizzalo nella parte superiore sinistra della ⎕SMfinestra.
  • ⎕DL 1: e quindi attendere un secondo.

Awk, 53

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

Nuove regole:

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

correre come

perl -p00 frames.pl < animation.txt

(ovvero il file di animazione viene letto tramite STDIN). Sono p00stati aggiunti 3 byte per il conteggio. È più breve di 2 caratteri, ovvero 38 su Windows, clsinvece di clear. Oppure, per essere portatile:

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

Oppure, allungando un po 'le regole (e quindi 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]]

Si aspetta che il nome file sia archiviato in una variabile f. Di seguito è riportato un esempio non golfato:

f: %ascii-art.txt

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

Java, 678 caratteri (se giocato a golf)

Ovviamente con la GUI, dal momento che fare cose in console fa schifo con Java, specialmente se vuoi cancellare lo schermo ...

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

Presuppone che il nome del file sia memorizzato in una variabile 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')

Nota: sostituire 'cls'con 'clear'if su un sistema basato su unix, aggiungendo 2 chrs.

ctl+C abbandonare

Groovy - 121 119 caratteri

Risposta di ProgramFOX trasferita a Groovy 2.2.1. La "console chiara" è debole.

modifica : sostituisce la chiusura ricorsiva con un semplice ciclo while, che è più corto e senza overflow dello stack

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

Questo è un modo più groovy:

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

Perché preoccuparsi eh?

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

Non golfato :

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

O in LINQPAD (in modo che C # possa rimanere semi-competitivo con le ultime lingue abbreviate: 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();}

Mi sento un po 'sporco, ma hey, questo è il golf di codice.

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 dovrebbe essere il nome del file