작업:

주어진 .txtASCII 아트 프레임 파일로 분리 각각 \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)

답변

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

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

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

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

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

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

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

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

perl -p00 frames.pl < animation.txt

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

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

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

f: %ascii-art.txt

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