8 개의 데이터 시점을 사용하여 평균 BPM (분당 비트)을 계산하는 가장 짧은 코드를 프로그래밍하십시오. 이것은 내 첫 번째 게시물이며 이와 비슷한 질문을 보지 못했습니다. 나는 리듬 게임의 팬이기 때문에 자신의 키보드와 자신의 리듬 감각을 사용하여 BPM을 계산할 수있는 작은 편리한 도구를 갖는 것이 좋을 것입니다 ...

도전

• 모든 입력은 단수 여야합니다. (즉, "입력"을 "입력"으로 눌러야)
• 프로그램은 9 개 이상의 입력을 가져야합니다. (8 개의 데이터 시점을 생성하기 위해)
• 프로그램은 소수점 2 자리로 반올림 한 키 누르기의 BPM을 출력해야합니다. (즉, 178.35)
• 첫 입력에서 타이밍이 시작됩니다. 프로그램을 시작하지 않음

이것은 code-golf 이므로 가장 짧은 답변이 이깁니다.

입력 및 출력 예

하나 이상의 입력 및 출력 예를 제공하십시오. 입력 내용에 대한 설명과 일치하는지 확인하십시오.

입력:

> [Enter-Key]
# User waits 1 second
...  7 more inputs
> [Enter-Key] 

산출:

> 60

현재 우승자는 Pyth 를 사용하여 KarlKastor에서 22 바이트

우승자가 Pyth를 사용했지만 Matlab의 대답은 주목할만한 대답이었습니다.

Pyth , 22 바이트

 wJ.d0 mw8.Rc480-.d0J2

(예 공간이 있습니다)

입력은 '입력'프레스입니다.

추가 출력이 허용되면 공백을 제거하고 20 바이트의 점수를 얻을 수 있습니다.

설명

 wJ.d0 mw8.Rc480-.d0J2
 w                      # take the first input
                        # (space) throw the result away
  J.d0                  # store the current system time in J
       mw8              # take 8 inputs and throw the result away
                 -.d0J  # difference of current time and J
             c480       # divide 480 by this
           .R         2 # round to 2 decimal places 

MATLAB / 옥타브, 58 56 55 바이트

-1 바이트를위한 @LuisMendo에게 감사합니다!

input('');tic;for k=1:7;input('');end;fix(48e3/toc)/100

Enter를 9 번 눌러야합니다. (옥타브에서도 작동합니다.)

여기 왼쪽 MATLAB, 오른쪽 Octave에서 작동합니다.

자바 스크립트 (ES6), 77 74 바이트

(i=8,n=Date.now,t)=>onclick=_=>(t=t||n(),i--||alert((48e6/(n()-t)|0)/100))

onclick전역 window객체 에 이벤트를 만듭니다 . 창의 아무 곳이나 클릭하여 비트를 보냅니다.

테스트 스 니펫

let f=
(i=8,n=Date.now,t)=>onclick=_=>(t=t||n(),i--||alert((48e6/(n()-t)|0)/100))

f()
document.write("Running... click anywhere here")

*{user-select:none}

파이썬 3, 93 92 81 바이트

Felipe 덕분에 11 바이트가 절약되었습니다 .

import time
a,*l,b=[input()or time.time()for i in' '*9]
print(round(480/(b-a),2))

배쉬 + 일반적인 리눅스 유틸리티, 58

script -tt -c'sed -n 9q'
sed '1c2k0
s/ 2/+/;$a480r/p' t|dc

Javascript, Powelles 덕분에 100 , 84 , Justin Mariner 덕분에 82 바이트

z=>{(a=alert)();i=0;s=(n=Date.now)();while(i++<8)a();a((48e4/(n()-s)).toFixed(2))}

(z=>{(a=alert)();i=0;s=(n=Date.now)();while(i++<8)a();a((48e4/(n()-s)).toFixed(2))})();

자바 1.5, 345 339 361 337 바이트

가져 오기를 수정하는 것을 잊어 버린 지적 Michael 덕분에 -34 바이트

import java.awt.event.*;class B{public static void main(String[]a){new java.awt.Frame(){{addKeyListener(new KeyAdapter(){long x=System.currentTimeMillis();int b=0;public void keyPressed(KeyEvent e){if(e.getKeyChar()==' '&&b++==9){System.out.println(Math.round(6000000.0*b/(System.currentTimeMillis()-x))/100.0);}}});setVisible(1>0);}};}}

스페이스 바를 누를 때 사용자의 말을 듣습니다. 그런 다음 사용자가 9 번을 누르면 현재 BPM을 사용자에게 다시 인쇄합니다.

이미지에 골프 코드에없는 디버그 메시지가 있습니다.

언 골프 드 :

import java.awt.event.*;

class B {
    public static void main(String[] a) {
        new java.awt.Frame() {
            {
                addKeyListener(new KeyAdapter() {
                    long x = System.currentTimeMillis();
                    int b = 0;

                    public void keyPressed(KeyEvent e) {
                        if (e.getKeyChar() == ' ' && b++ == 9) {
                            System.out
                                    .println(Math.round(6000000.0 * b
                                            / (System.currentTimeMillis() - x)) / 100.0);
                        }
                    }
                });
                setVisible(1 > 0);
            }
        };
    }
}

좋은 점수를 얻으려고 노력하는 재미 ...

KEY PRESS0 AT 250ms.
KEY PRESS1 AT 343ms.
KEY PRESS2 AT 468ms.
KEY PRESS3 AT 563ms.
KEY PRESS4 AT 672ms.
KEY PRESS5 AT 781ms.
KEY PRESS6 AT 880ms.
KEY PRESS7 AT 989ms.
485

C 번호 (.NET 코어) 193 206 189 186 155 143 137 바이트

-47 덕분 바이트 TheLethalCoder
-4 덕분에 바이트 Nazar554
-16 덕분에 바이트 뤽
-2 덕분 바이트 카밀 Drakari을

_=>{var x=new long[9];for(int i=0;i<9;){Console.ReadKey();x[i++]=DateTime.Now.Ticks;}return Math.Round(48e8/(x[8]-x[0]),2);}

바이트 수에 추가됨 :

using System;

전체 프로그램 :

namespace System
{
    class A
    {
        static void Main()
        {
            Func<int, double> f = _ =>
            {
                var x = new long[9];
                for (int i = 0; i < 9; )
                {
                    Console.ReadKey();
                    x[i++] = DateTime.Now.Ticks;
                }
                return Math.Round(48e8 / (x[8] - x[0]), 2);
            };
            Console.WriteLine(f(0));
        }
    }
}

C ++, 150 바이트

#include<iostream>
#include<ctime>
#define G getchar()
void f(){G;auto s=clock();G;G;G;G;G;G;G;G;std::cout<<round(6000/(double(clock()-s)/8000))/100;}

파이썬 + 저주, 122 바이트

import curses as C,time as T
s=C.initscr()
C.cbreak()
t=0
exec's.getch();t=t or T.time()'*9
print'%.2f'%(540/(T.time()-t))

필요 curses로드 할 모듈을.

Felipe Nardi Batista 덕분에 -9 바이트

VBA, 57

msgbox"":x=timer:for i=1to 8:msgbox"":next:?480/(timer-x)

Enter 키를 누르거나 메시지 상자에서 확인을 클릭하십시오.

파이썬 3 , 74 바이트

from timeit import*;print('%.2f'%(480/timeit('input()',input(),number=8)))

온라인으로 사용해보십시오!

이것은 모든 입력을 한 번에 실행하지만 작동하기 때문에 TIO에서 바보 같은 숫자를 줄 것입니다. setup 매개 변수를 제외한 timeit()명령문의 실행 시간을 'input()'초 단위로 반환합니다 input(). 유효성 검증을 위해 입력 당 1 초 지연된 TIO .

자바 (8), (180) 135 바이트

@SocraticPhoenix가 -45 바이트를 System.in직접 사용하도록 제안했습니다 .

x->{System.in.read();long t=System.nanoTime(),i=0;for(;i++<8;System.in.read());System.out.printf("%.2f",4.8e11/(System.nanoTime()-t));}

사용되지 않는 인수를 가진 익명의 람다 함수로, 함수 인터페이스 메소드에 할당되어야합니다 Exception(아래 예 참조). 콘솔에서 읽습니다. 를 누르면 비트가 전송됩니다 enter.

둘러싸이지 않은 테스트 코드가있는 언 골프

public class A {
    interface F{void f(Object x) throws Exception;}

    public static void main(String[]a) throws Exception {
        F f =

        x->{
            System.in.read();
            long t=System.nanoTime(),i=0;
            for(;i++<8;System.in.read());
            System.out.printf("%.2f",4.8e11/(System.nanoTime()-t));
        }

        ;
        f.f(null);
    }
}

C #, 117 바이트

이미이 C # (.NET Core) 답변 이 있습니다. 출력에 보간 문자열 (.NET Core가 부족한 것으로 보임)을 추가하고 DateTime 대신 긴 배열을 사용하여 일부 바이트를 면도했습니다.

_=>{var d=new long[9];for(var i=0;i<9;){Console.ReadKey();d[i++]=DateTime.Now.Ticks;}return$"{48e8/(d[8]-d[0]):n2}";}

휴머니즘 버전

class Program
{
    static void Main()
    {
        Func<int, string> f = _ =>
        {
            var d = new long[9];
            for (var i = 0; i < 9;)
            {
                Console.ReadKey();   // Switch these two to "automate" key presses.
                //Thread.Sleep(100); 

                d[i++] = DateTime.Now.Ticks;
            }
            return $"{48e8 / (d[8] - d[0]):n2}";
        };

        var result = f(1);
        Console.WriteLine();
        Console.WriteLine(result);
        Console.ReadKey(true);
    }
}

R, 79 84 바이트

scan();s=Sys.time;x=s();replicate(8,scan());cat(round(60/as.numeric((s()-x)/8),d=2))

enter를 사용하는 경우에만 작동합니다. 스캔을 즉시 종료하기 때문입니다. 반올림을 처리 print하면서 digits인수에 명시 적으로 사용 합니다 .

> scan();s=Sys.time;x=s();replicate(8,scan());cat(round(60/as.numeric((s()-x)/8),d=2))
1: 
Read 0 items
numeric(0)
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
1: 
Read 0 items
[[1]]
numeric(0)

[[2]]
numeric(0)

[[3]]
numeric(0)

[[4]]
numeric(0)

[[5]]
numeric(0)

[[6]]
numeric(0)

[[7]]
numeric(0)

[[8]]
numeric(0)

[1] 439.47

루비, 58 바이트

gets;t=Time.now;8.times{gets};p (480/(Time.now-t)).round 2