La tâche:

Étant donné un .txtfichier avec des images d'art ASCII séparées chacune par une \nsortie (voir cet exemple si vous n'êtes pas clair) une image animée avec une image à 1 image par seconde.

Notez qu'il y a une fin \nsur l'image finale.

Les dimensions de chaque cadre seront:

• X <80
• Y <20

Les règles

• Le cadre précédent doit être effacé avant que le suivant ne s'affiche, donc l'impression de chaque cadre sur le terminal n'est pas une réponse valide.
• Nouveau Vous pouvez récupérer le nom du fichier comme vous le souhaitez, soit à partir de son stockage dans une variable, soit à partir d'arguments sys.
• Nouveau Les images doivent boucler indéfiniment
• C'est le golf de code: le plus petit programme gagne.

Exemple

Contribution

0   0
0   0
00000
0   0
0   0

00000
0
00000
0   
00000

0   0
 0 0
  0
  0
  0

Production

Non 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 octets

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

Attend que le nom de fichier soit stocké dans une variable f.

C'est la première fois que Mathematica règle les priorités @et .~.~.est exactement la façon dont j'en ai besoin.

Btw, cet extrait pourrait mal tourner si l'extension du fichier est autre chose que .txt(car Mathematica essaiera de deviner comment effectuer l'importation en fonction de cela), mais heureusement, la fin de ce fichier fait partie de la spécification du défi.

Bash, 82

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

Suppose que le nom de fichier du fichier .txt est fourni comme premier argument du script.

Notez qu'une ligne vide de fin doit être présente à la fin du fichier .txt pour que cela fonctionne.

Un merci spécial à @professorfish et @DigitalTrauma.

Rubis, 88 86 56 55 caractères

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

Ce programme suppose que le nom de fichier est donné comme premier argument.

Merci beaucoup à Ventero d'avoir partagé de grandes améliorations!

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

Ce programme lit le fichier, le divise en morceaux et imprime chaque morceau séparément après avoir effacé l'écran. clsne fonctionne que sous Windows. Une variante de clear57 caractères.

Dyalog APL (64)

(Ne peut pas battre Mathematica cette fois. Il semble avoir une fonction intégrée pour tout.)

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

Il s'agit d'une fonction qui prend le nom de fichier comme argument. Il suppose que le fichier est au \r\nformat Windows ( ).

Explication:

• ⎕ML←3: définir le niveau de migration sur 3 (permettant ⊂d'être utilisé comme fonctionnalité de partage d'APL2)
• M←80 ¯1⎕MAP⍵: lire le fichier donné par l'argument de droite en tant que fichier ASCII et stocker le contenu dans M.
• M⊂⍨~(4/1)⍷⎕TC∊⍨M: recherchez toutes les occurrences de quatre caractères de contrôle de terminal consécutifs et divisez- Mles. Cela donne à chaque image.
• {... }¨: pour chacun d'eux ...
  • ⊂⊃⍵⊂⍨~⍵∊⎕TC: divisez l'argument (= une trame) sur les caractères de contrôle du terminal, puis transformez le vecteur de vecteurs en matrice (afin qu'il affiche chaque ligne sur une ligne distincte, cela est nécessaire car ⎕SMne comprend pas les caractères de contrôle.)
  • ⎕SM←1 1,⍨: affichez-le ensuite dans le coin supérieur gauche de la ⎕SMfenêtre.
  • ⎕DL 1: puis attendez une seconde.

Awk, 53

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

Nouvelles règles:

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

courir comme

perl -p00 frames.pl < animation.txt

(c'est-à-dire que le fichier d'animation est lu via STDIN). 3 octets p00ont été ajoutés pour compter. C'est 2 caractères plus court soit 38 sur Windows à cause de clsau lieu de clear. Ou, pour être portable:

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

Ou, étirer un peu les règles (puis 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]]

Attend que le nom de fichier soit stocké dans une variable f. Voici un exemple non golfé:

f: %ascii-art.txt

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

Java, 678 caractères (au golf)

Bien sûr avec l'interface graphique, car faire des trucs dans la console est nul avec Java, surtout si vous voulez effacer l'écran ...

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

Suppose que le nom de fichier est stocké dans une variable 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')

Remarque: remplacer 'cls' par 'clear'if sur un système basé sur unix, en ajoutant 2 heures.

ctl+C quitter

Sensationnel - 121 119 caractères

Porté Réponse de ProgramFOX à Groovy 2.2.1. La "console claire" est faible.

Éditer : remplacement de la fermeture récursive par une simple boucle while, qui est plus courte et sans débordement de pile

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

Non golfé:

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

C'est une façon plus groovy:

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

non golfé

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

C # 226

Pourquoi déranger hein?

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

Ou dans LINQPAD (pour que C # puisse rester semi-compétitif avec les langages sténographiques 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();}

Je me sens un peu sale, mais bon, c'est du code-golf.

SmileBASIC, 74 octets

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

F doit être le nom du fichier