Напечатайте непрерывную синусоидальную волну, прокручивая вертикально на терминале. Программа не должна завершаться и должна непрерывно прокручивать волну вниз (кроме случаев, когда она каким-то образом прерывается). Вы можете предположить, что переполнение не является проблемой (то есть вы можете использовать бесконечные циклы с увеличивающимися счетчиками или бесконечную рекурсию).

Волна должна удовлетворять следующим свойствам:

• Амплитуда = 20 символов (пиковая амплитуда)
• Период = от 60 до 65 строк (включительно)
• Вывод должен состоять только из пробелов, новой строки и |
• После каждой строки вывода, пауза на 50 мс

Пример вывода:

                    |
                      |
                        |
                          |
                            |
                              |
                                |
                                 |
                                   |
                                    |
                                     |
                                      |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                   |
                                  |
                                |
                               |
                             |
                           |
                         |
                       |
                     |
                   |
                 |
               |
             |
            |
          |
        |
       |
     |
    |
   |
  |
 |
 |
 |
 |
 |
 |
 |
  |
   |
    |
     |
      |
        |
         |
           |
             |
               |
                 |
                   |
                     |
                       |
                         |
                           |
                             |
                              |
                                |
                                  |
                                   |
                                    |
                                      |
                                      |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                    |
                                   |
                                  |
                                |
                               |
                             |
                           |
                         |
                       |
                     |
                   |
                 |
               |
             |
           |
          |
        |
       |
     |
    |
   |
  |
 |
 |
 |
 |
 |
 |
 |
  |
   |
    |
     |
       |
        |
          |
            |
             |
               |
                 |
                   |

Приведенный выше вывод должен продолжаться вечно, если не прервано иным образом, например, SIGINT или SIGKILL, или закрытие окна терминала, или вы выключаете свою машину, или Солнце проглатывает Землю и т. Д.

Самый короткий код выигрывает.

Заметка. Я знаю о подобной проблеме на волнах прокрутки дисплея, но это не совсем то же самое. В моей проблеме волну не нужно прокручивать "на месте" - просто выведите ее на терминал. Кроме того, это проблема ascii-art, поэтому не используйте Mathematica для ее построения.

APL (35)

(Да, он умещается в 35 байтов, вот 1-байтовая кодировка APL )

{∇⍵+⌈⎕DL.05⊣⎕←'|'↑⍨-21+⌈20×1○⍵×.1}1

Объяснение:

• {... }1: вызвать функцию с 1 в начале
• 1○⍵×.1: достаточно близко для работы правительства sin(⍵×π÷30). ( 1○есть sin).
• -21+⌈20: нормализуйте до диапазона 1..40и отрицайте
• '|'↑⍨: взять последние Nсимволы из строки '|'(что приводит к строке пробелов с символом |в конце
• ⎕←: дисплей
• ⌈⎕DL.05: подождите 50 мс и вернитесь 1. ( ⎕DLвозвращает количество времени, которое оно фактически ожидало, которое должно быть близко 0.05, округляя это значение, дает 1).
• ∇⍵+: добавьте это число ( 1) ⍵и снова запустите функцию.

C, 74 73 70 69 67 персонажей

67-символьное решение со множеством хороших идей от @ugoren и других:

i;main(j){main(poll(printf("%*c|\n",j=21+sin(i++*.1)*20,0),0,50));}

Решение из 69 символов с циклом while вместо рекурсии:

i;main(j){while(printf("%*c|\n",j=21+sin(i++*.1)*20,0))poll(0,0,50);}

Приближается к территории Perl. :)

Mathematica 121 104 80 67 64

n=1;While[0<1,Spacer[70 Sin[n Pi/32]+70]~Print~"|";Pause@.05; n++]

Perl, 48 (68)

Спящая версия GNU: 48

print$"x(25+20*sin).'|
';$_+=.1;`sleep .05`;do$0

Кроссплатформенность: 68

use Time::HiRes"sleep";print$"x(25+20*sin).'|
';$_+=.1;sleep.05;do$0

Удалено использование модуля Time :: HiRes с помощью функции сна сна. Сокращенный прирост по примеру Ruby. Сокращены с помощью $ "и $ 0, видя подсказки от работы Primo. Спасибо за подсказки Primo.

Perl - 64 (или 60) байта

Далее используется специфичная для Windows команда оболочки:

`sleep/m50`,print$"x(20.5-$_*(32-abs)/12.8),'|
'for-32..31;do$0

Следующее использует GNU / Linux-специфическую команду оболочки:

`sleep .05`,print$"x(20.5-$_*(32-abs)/12.8),'|
'for-32..31;do$0

Оба на 64 байта.

• Период 64.
• Максимальная амплитуда ровно 20.
• Кривая идеально симметрична.
• Каждый период идентичен.

                    |
                      |
                         |
                           |
                             |
                               |
                                |
                                  |
                                   |
                                    |
                                     |
                                      |
                                       |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                   |
                                  |
                                |
                               |
                             |
                           |
                         |
                      |
                    |
                  |
               |
             |
           |
         |
        |
      |
     |
    |
   |
  |
 |
 |
|
|
|
|
|
 |
 |
  |
   |
    |
     |
      |
        |
         |
           |
             |
               |
                  |
                    |
                      |
                         |
                           |
                             |
                               |
                                |
                                  |
                                   |
                                    |
                                     |
                                      |
                                       |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                   |
                                  |
                                |
                               |
                             |
                           |
                         |
                      |
                    |
                  |
               |
             |
           |
         |
        |
      |
     |
    |
   |
  |
 |
 |
|
|
|
|
|
 |
 |
  |
   |
    |
     |
      |
        |
         |
           |
             |
               |
                  |
                    |

Обратите внимание, что это не синусоидальная волна, а квадратичная интерполяция. Заговор против фактического греха:

При требуемой детализации они визуально неразличимы.

Если эстетика не так важна, я предлагаю 60-байтовую альтернативу с длиной периода 62, максимальной амплитудой ~ 20,02 и небольшой асимметрией:

`sleep/m50`,print$"x(20-$_*(31-abs)/12),'|
'for-31..30;do$0

Руби 56

i=0
loop{puts" "*(20*Math.sin(i+=0.1)+20)+?|;sleep 0.05}

Befunge 98 - 103 100

:1g:02p' \k:02gk,'|,a,$ff*:*8*kz1+:'<\`*
468:<=?ABDEFGGGHGGGFEDBA?=<:86420.,+)'&$#"!!! !!!"#$&')+,.02

Приветствует программу, которая делает это на языке без тригонометрических возможностей; первая программа на самом деле. Вторая строка - просто данные; символ, соответствующий значению греха ascii, добавлен к пробелу.

РЕДАКТИРОВАТЬ: я спас 3 символа, не вычитая пространство; синусоида переводится на 32 единицы вправо (что действительно).

У Befunge также нет команды сна или чего-то подобного. Было бы неплохо найти отпечаток пальца, но я не смог его найти, поэтому ff*:*8*нажимает 8*225**2( 405000) и kzзапускает noop много раз (ну, это много раз + 1). В командной строке Windows с pyfunge это составляет около 50 миллисекунд, так что я говорю, что я в порядке. Примечание: если кто-то знает хороший отпечаток для этого, пожалуйста, дайте мне знать.

Последняя часть кода просто проверяет, прошел ли счетчик (для строки данных) данные, если это так, то счетчик сбрасывается в 0.

Я использовал это для генерации данных.

Серия Тейлор

Хотя эта версия составляет 105 символов, я просто должен был включить ее:

:::f`!4*jf2*-:::*:*9*\:*aa*:*:01p*-01g9*/a2*+\$\f`!4*j01-*b2*+:01p' \k:01gk,$'|,a,ff*:*8*kz1+:f3*`!3*j$e-

Я пытался сократить свою программу и решил взглянуть на ряд Тейлора для косинуса (синус сложнее рассчитать). Я изменил xна, pi * x / 30чтобы соответствовать запрашиваемому периоду, а затем умножил на, 20чтобы соответствовать амплитуде. Я сделал некоторые упрощения (скорректированные факторы для отмены, без значительного изменения значения функции). Затем я реализовал это. К сожалению, это не более короткая реализация.

:f`!4*jf2*-

проверяет, становятся ли значения ряда Тейлора неточными (о x = 15). Если они есть, то я вычисляю ряд Тейлора x - 30вместо x.

:::*:*9*\:*aa*:*:01p*-01g9*/a2*+

моя реализация ряда Тейлора в x = 0, когда xэто значение в стеке.

\$\f`!4*j01-* 

отменяет значение ряда Тейлора, если ряд Тейлора нуждается в корректировке.

b2*+

сделать волну косинуса положительной; в противном случае печать не будет работать.

:01p' \k:01gk,$'|,a,

печатает волну

ff*:*8*kz1+

временное ожидание 50 миллисекунд, затем увеличение x

:f3*`!3*j$e-

Если xбольше 45, измените его на -14 (опять же, коррекция ошибок серии Тейлора).

Python, 108,93,90,89, 88

import math,time
a=0
while 1:print" "*int(20+20*math.sin(a))+"|";time.sleep(.05);a+=.1

Теперь с бесконечной прокруткой :)

Редактировать: хорошо, 90. Достаточно?

Редактировать: Редактировать: нет, 89.

Редактировать: Редактировать: Редактировать: 88 благодаря Boothby .

PHP, 59 символов

<?for(;;usleep(5e4))echo str_pad('',22+20*sin($a+=.1)).~ƒõ;

C64 BASIC, 64 символа PETSCII

На PAL C64, For i=0 to 2:next iциклы в течение ок. 0,05 секунды, поэтому время задержки соблюдается.

Javascript 88 76 78 персонажей

setInterval('console.log(Array(Math.sin(i++/10)*20+21|0).join(" ")+"|")',i=50)

Основано на коде Кендалла Фрея.

C - 86 + 3 символа

Спасибо Шион и Джош за редактирование

i;main(j){for(;j++<21+sin(i*.1)*20;)putchar(32);puts("|");usleep(50000);i++;main(1);}

я; основная (к) {для (J = 0; j ++ <20 + sin (I / 10) * 20;.) putchar (32); ставит ( "|"); USleep (50000); я ++; главное () ;}

float i; main (j) {for (j = 0; j ++ <20 + sin (i) * 20;) putchar (32); put ("|"); usleep (50000); i + =. 1; main ( );}

Скомпилированный с -lmфлагом, я предполагаю, что мне нужно добавить 3 символа

Ti-Basic, 33 байта

While 1:Output(8,int(7sin(X)+8),"!":Disp "":π/30+X→X:End

Существуют следующие предостережения :

1. Из-за ограничения экрана 16x8, эта синусоида имеет только амплитуду 7 (период 60 все еще поддерживается)

2. Из-за отсутствия простого способа доступа к |символу, !используется вместо

3. Из-за отсутствия точного системного таймера задержка не реализована. Однако скорость бега выглядит примерно правильной.

JavaScript - 88

setInterval(function(){console.log(Array(Math.sin(i++/10)*20+21|0).join(" ")+"|")},i=50)

Я уверен, что кто-то может придумать что-то действительно умное.

J - 103,58,57, 54

Спасибо классным ребятам из IRC

(0.1&+[6!:3@]&0.05[2:1!:2~' |'#~1,~[:<.20*1+1&o.)^:_]0

В словах справа налево это выглядит так: начиная с 0 бесконечно делайте: sin, добавьте 1, умножьте на 20, floor, добавьте 1 (таким образом, он становится массивом из 2 элементов), скопируйте два байта '|' соответственно распечатайте, подождите 0,05 с и добавьте 0,1

Вместо бесконечного цикла мы можем использовать рекурсию, она сохранит 2 символа, но также выдаст ошибку стека после некоторого числа итераций

($:+&0.1[6!:3@]&0.05[2:1!:2~' |'#~1,~[:<.20*1+1&o.)0  

Где $:рекурсивный вызов.

Хаскелл - 75

main=putStr$concat["|\n"++take(floor$20+20*sin x)(repeat ' ')|x<-[0,0.1..]]

К сожалению, я не смог заставить программу сделать паузу в 50 мс, не удвоив счетчик символов, поэтому она просто заполняет консоль, но производит синусоидальную волну.

Вот полный код с паузой (138 символов с символами новой строки):

import GHC.Conc
import Control.Monad
main=mapM_(\a->putStr a>>threadDelay 50000)(["|\n"++take(floor$20+20*sin x)(repeat ' ')|x<-[0,0.1..]])

Perl 6: 46 символов

sleep .05*say ' 'x(25+20*.sin),'|'for 0,.1...*

Создайте бесконечный ленивый Range с помощью 0,0.1 ... *цикла. sayвозвращает, Bool::Trueкоторый нумеруется как 1 при умножении, так что я могу сохранить его в одном выражении.

_fugly Javascript - 77

i=setInterval("console.log(Array(Math.sin(i+=.1)*20+20|0).join(' ')+'|')",50)

и если мы сделаем это в Firefox - 73

i=setInterval("console.log(' '.repeat(Math.sin(i+=.1)*20+20|0)+'|');",50)

и если мы противны - 67

i=setInterval("throw(' '.repeat(Math.sin(i+=.1)*20+20|0)+'|');",50)

Scala, 92,89, 87

def f(i:Int){println(" "*(20+20*math.sin(i*.1)).toInt+"|");Thread sleep 50;f(i+1)};f(1)

Питон 3, 103

Глупый чертов импорт ...

import time,math
t=0
while 1:t+=(.05+t<time.clock())and(print(' '*int(20+20*math.cos(t*1.9))+'|')or.05)

Вместо «сна» эта реализация размалывает процессор, потому что python облегчает получение процессорных часов с плавающей запятой, чем настенных. Этот подход не превзойдет фриролов , но это весело, поэтому я оставляю это.

C #

[152] Персонажи

namespace System{class P{static void Main(){for(var i=0d;;){Console.Write("{0,"+(int)(40+20*Math.Sin(i+=.1))+"}\n",'|');Threading.Thread.Sleep(50);}}}}

Я не смог получить ответ «Существующий C #» на «Выполнить» и не смог понизить голос, потому что у меня недостаточно репутации

он пропустил пару {и пропустил )после декларации For Loop.

Я полагаю, что разница во взгляде на волну при ее запуске обусловлена ​​тем, как мы пытаемся отобразить эту волну.

если мы не будем считать пространство имен и объявление метода, то для рабочей версии это будет [104] символов

for(var i=0d;;){Console.Write("{0,"+(int)(40+20*Math.Sin(i+=.1))+"}\n",'|');Threading.Thread.Sleep(50);}

VB [236] [178]

не знаю, как вы будете считать вкладки, я просто взял счет из Notepadd ++, прежде чем вставить сюда. переводы строки являются обязательными, вероятно, почему никто не любит использовать его для игры в гольф кода.

Module Module1
Sub Main()
Dim i
While True
Console.WriteLine("{0:" & (40 + 20 * Math.Sin(i = i + 0.1)) & "}", "|")
Threading.Thread.Sleep(50)
End While
End Sub
End Module

C #

Волшебная линия [91] Персонажи

for(var i=0d;;Console.Write("{0,"+(int)(40+20*Math.Sin(i+=.1))+"}\n",'|'))Thread.Sleep(50);

Рабочая программа ниже. [148] Персонажи

namespace System{class P{static void Main(){for(var i=0d;;Console.Write("{0,"+(int)(40+20*Math.Sin(i+=.1))+"}\n",'|'))Threading.Thread.Sleep(50);}}}

Bash + BC (чтобы сделать математику), 80

$ for((;;i++)){ printf "%$(bc -l<<<"a=20*s($i/10);scale=0;a/1+20")s|
";sleep .05;}
                |
                 |
                   |
                     |
                       |
                         |
                           |
                            |
                              |
                               |
                                |
                                 |
                                  |
                                   |
                                   |
                                   |
                                   |
                                   |
                                   |

TI-BASIC, 30 байтов

Небольшое улучшение размера по сравнению с другим ответом, за счет некоторой точности. Обратите внимание, что TI-Basic технически имеет | персонаж, но вы должны передать его через компьютер или использовать программу сборки для доступа к нему.

While 1
Output(8,int(8+7sin(Ans)),":
Disp "
.03π+Ans
End

Юлия - 68

Изменить: благодаря ML и туз.

i=0;while 0<1;println(" "^int(20sin(.1i)+20)*"|");i+=1;sleep(.05)end

Ну, это не может конкурировать с APL, но вот моя попытка.

Выход:

                    |
                      |
                        |
                          |
                            |
                              |
                               |
                                 |
                                  |
                                    |
                                     |
                                      |
                                       |
                                       |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                   |
                                  |
                                |
                              |
                             |
                           |
                         |
                       |
                     |
                   |
                 |
               |
             |
           |
         |
        |
      |
     |
    |
   |
  |
 |
|
|
|
|
|
 |
 |
  |
   |
     |
      |
       |
         |
           |
             |
              |
                |
                  |
                    |
                      |
                        |
                          |
                            |
                              |
                                |
                                 |
                                   |
                                    |
                                     |
                                      |
                                       |
                                       |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                   |
                                 |
                                |
                              |
                            |
                          |
                        |
                      |
                    |
                  |
                 |
               |
             |
           |
         |
       |
      |
     |
   |
  |
  |
 |
|
|
|
|
|
 |
  |
  |
    |
     |
      |
        |
         |
           |
             |
               |
                 |
                   |
                     |
                       |
                         |
                           |
                            |
                              |
                                |
                                 |
                                   |
                                    |
                                     |
                                      |
                                       |
                                       |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                  |
                                 |
                               |
                              |
                            |
                          |
                        |
                      |
                    |
                  |
                |
              |
            |
           |
         |
       |
      |
    |
   |
  |
 |
 |
|
|
|
|
|
 |
  |
   |
    |
     |
      |
        |
          |
           |
             |
               |
                 |
                   |
                     |
                       |
                         |
                           |
                             |
                              |
                                |
                                  |
                                   |
                                    |
                                     |
                                      |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                       |
                                      |
                                     |
                                    |
                                  |
                                 |
                               |
                             |
                            |
                          |
                        |
                      |
                    |
                  |
                |
              |
            |
          |
         |
       |
      |
    |
   |
  |
 |
 |
|
|
|
|
 |
 |
  |
   |
    |
     |
       |
        |
          |
            |
             |
               |
                 |
                   |
                     |
                       |
                         |
                           |
                             |
                               |
                                |
                                  |
                                   |
                                    |
                                      |
                                      |
                                       |
                                        |
                                        |
                                        |
                                        |
                                        |
                                       |
                                      |
                                      |
                                     |
                                   |
                                  |
                                |
                               |
                             |
                           |
                         |
                       |
                     |
                   |

MATLAB, 81 байт

t=0;while(fprintf('%s\n',i))i=[];t=t+1;i(fix(21+20*sind(t*6)))='|';pause(.05);end

Я злоупотребил фактом, который iвсегда инициализируется в MATLAB, а это означало, что я мог поместить оператор fprintfв whileоператор без предварительной инициализации i. Это означает, что программа сначала выводит пустую строку, но я думаю, что это не запрещено в спецификации.

Кроме того, он злоупотребляет тем фактом, что Matlab будет игнорировать большинство управляющих символов ASCII, печатая пробел вместо NULL (также для первой пустой строки).

F # - 90 79 77 76

Вот решение с использованием рекурсии

let rec f x=printfn"%*c"(int(20.*sin x)+21)'|';Thread.Sleep 50;f(x+0.1)
f 0.

Это может быть улучшено дальше.

AutoHotkey 176

SetKeyDelay,-1
run Notepad.exe
WinWaitActive, ahk_class Notepad
p:=0
loop
{
sleep 50
p+=Mod(Floor(A_index/40),2)?-1:1,t:=""
loop % p
t .= " "
sendinput % t "|`n"
}
esc::Exitapp

Запустите скрипт. Он открывает Блокнот и печатает символы. Нажмите Esc в любое время, чтобы выйти.

Clojure, 121

Укороченная версия:

(loop[a 0](println(clojure.string/join(repeat(int(+ 20 (* 20 (Math/sin a)))) " ")) \|)(Thread/sleep 50)(recur(+ a 0.1)))

Красивая версия:

(loop [a 0]
  (println (clojure.string/join (repeat (int (+ 20 (* 20 (Math/sin a)))) " ")) \|)    
  (Thread/sleep 50)
  (recur(+ a 0.1)))

Период 64.

Введите это lein replили сохраните в файле sin.cljи запустите с помощью lein exec sin.clj(требуется плагин lein-exec).