Görev:

.txtASCII sanatının kareleri olan ve her biri bir \n(belirsizseniz bu örneğe bakın) içeren bir dosya verildiğinde , saniyede 1 kare kare içeren bir hareketli görüntü çıktısı alın.

\nSon karede bir iz olduğunu unutmayın .

Her çerçeve boyutu aşağıdaki gibi olacaktır:

• X ', 80
• Y, <20

Kurallar

• Bir sonraki gösterilmeden önce Önceki çerçevenin temizlenmesi gerekir, bu nedenle her çerçevenin terminale yazdırılması geçerli bir yanıt değildir.
• Yeni Dosya adını istediğiniz değişkente veya sys argümanlarından saklayarak istediğiniz gibi alabilirsiniz.
• Yeni Resimler süresiz olarak dönmelidir
• Bu kod golf: en küçük program kazanır.

Misal

Giriş

0   0
0   0
00000
0   0
0   0

00000
0
00000
0   
00000

0   0
 0 0
  0
  0
  0

Çıktı

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 bayt

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

Değişken içinde saklanacak dosya adının bulunmasını bekler f.

Bu Mathematica'nın önceliğini ilk kez yönetiyor @ve .~.~.tam olarak onlara ihtiyacım olan yol.

Btw, dosya uzantısı başka bir şeyse bu snippet korkunç bir şekilde yanlış gidebilir .txt(çünkü Mathematica buna dayalı olarak içe aktarmayı nasıl yapacağını tahmin etmeye çalışacaktır), ancak neyse ki bu dosya sonu meydan okuma belirtiminin bir parçasıdır.

Baş, 82

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

.Txt dosyasının dosya adının komut dosyasına ilk argüman olarak verildiğini varsayar.

Bunun çalışması için .txt dosyasının sonunda boş bir satır olması gerektiğini unutmayın.

@Professorfish ve @DigitalTrauma'ya özel teşekkürler.

Ruby, 88 86 56 55 karakterler

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

Bu program, dosya adının ilk argüman olarak verildiğini varsayar.

Ventero'ya büyük gelişmeleri paylaştığı için çok teşekkürler!

Un-golfed:

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

Bu program dosyayı okur, parçalara böler ve ekranı temizledikten sonra her bir parçayı ayrı ayrı yazdırır. clssadece Windows üzerinde çalışır. İle bir varyant clear57 karakterdir.

Dyalog APL (64)

(Bu sefer Mathematica'yı yenemezsin. Her şey için yerleşik bir şey var gibi görünüyor.)

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

Bu, dosya adını argüman olarak alan bir işlevdir. Dosyanın Windows ( \r\n) biçiminde olduğunu varsayar .

Açıklama:

• ⎕ML←3: taşıma düzeyini 3 olarak ayarlayın ( ⊂APL2'nin bölme özelliği olarak kullanılmasına izin )
• M←80 ¯1⎕MAP⍵: doğru argüman tarafından ASCII dosyası olarak verilen dosyayı okur ve içindekileri depolar M.
• M⊂⍨~(4/1)⍷⎕TC∊⍨M: arka arkaya dört terminal kontrol karakterinin tüm tekrarlamalarını bulun ve Mbunlara bölün . Bu her kareyi verir.
• {... }¨: bunların her biri için ...
  • ⊂⊃⍵⊂⍨~⍵∊⎕TC: bağımsız değişkeni (= bir kare) terminal kontrol karakterleri üzerinde bölün ve sonra vektör vektörlerini bir matrise dönüştürün (böylece her satırı ayrı bir satırda gösterecektir, bu ⎕SMkontrol karakterlerini anlamadığı için gereklidir .)
  • ⎕SM←1 1,⍨: ardından ⎕SMpencerenin sol üst köşesinde görüntüleyin .
  • ⎕DL 1: ve sonra bir saniye bekleyin.

Awk, 53

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

Yeni kurallar:

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

olarak çalıştırmak

perl -p00 frames.pl < animation.txt

(yani animasyon dosyası STDIN aracılığıyla okunur). Saymak için 3 bayt p00eklendi. Windows yerine 2 karakter daha kısadır yani 38cls yerine Windows clear. Veya taşınabilir olmak için:

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

Veya, germe kuralları biraz (ve sonra 31 + 3 = 34 ):

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

Asi, 74

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

Dosya adının değişkente saklanmasını bekler f. Aşağıda ungolfed örneği verilmiştir:

f: %ascii-art.txt

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

Java, 678 karakter (golf olduğunda)

Tabii ki GUI ile, konsolda bir şeyler yapmak Java ile berbat olduğundan, özellikle ekranı temizlemek istiyorsanız ...

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

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

Piton 117

Dosya adının değişkente saklandığını varsayar 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')

Not: yerine 'cls'ile 'clear', bir Unix tabanlı sistemde ise 2 chrs ekledi.

ctl+C bırakmak

Gelenekselleşmiş - 121 119 karakter

Taşınan ProgramFOX'un Groovy 2.2.1'e cevabı . "Net konsol" zayıf.

düzenleme : özyinelemeli kapama, daha kısa ve yığın taşması olmayan basit while döngüsü ile değiştirildi

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
}

Harika, 81

Bu daha güzel bir yol:

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

Neden rahatsız ettiniz?

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

Golf hariç :

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

Veya LINQPAD'de (böylece C # uber stenografi şeritleriyle yarı rekabetçi kalabilir: 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();}

Biraz kirli hissediyorum, ama hey, bu kod golf.

SmileBASIC, 74 bayt

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

F dosya adı olmalı