유로를 사용하는 대부분의 국가 ,는 소수점 구분 기호를 사용하므로이를 사용해야합니다.

이 작업은 유로 동전과 지폐의 모든 ​​값을 오름차순으로 출력하는 것입니다. 또한 ,00정수 값에 후행 을 넣어야 합니다.

0,01 0,02 0,05 0,10 0,20 0,50 1,00 2,00 5,00 10,00 20,00 50,00 100,00 200,00 500,00

stdout에 대한 출력 또는 배열 / 목록을 반환하는 함수를 모두 허용합니다. 출력이 stdout 인 경우 공백, 탭 또는 줄 바꿈 값 사이에 허용되는 구분 기호는 다음과 같습니다.

내가 매우 창의적으로 생각하는 것을 보지 않으면 받아 들여질만한 대답이 없을 것입니다.

code-golf 이므로 언어별로 짧은 답변을 알고 싶습니다.

최신 정보:

선행 00은 허용되지 않습니다. 죄송합니다. 전에 명확히해야합니다.

업데이트 2 :

문자열을 반환하는 함수도 허용됩니다.

순수한 배쉬, 48

s={1,2,5}
eval echo 0,0$s 0,${s}0 ${s}{,0,00},00

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

apt , 23 22 바이트

@Shaggy 덕분에 -1 바이트

5Æ#}ì ®eX-2 x2 d".,"
c

문자열 배열을 반환합니다.

온라인으로 사용해보십시오! -R배열 항목을 별도의 행에 출력 하는 플래그 와 함께 .

파이썬 2 , 72 바이트

print[('%.2f'%(10**(x/3-2)*(5>>~x%3))).replace(*'.,')for x in range(15)]

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

표현이 5>>~x%3에 음이 아닌 정수를 매핑 1, 2, 5, 1, 2, 5...

때문에 작품 5, 2, 1의 연속 오른쪽 bitshifts은 5( 0b101→ 0b10→ 0b1); 우리는 그것들을 거꾸로 순환시킵니다.

숯 , 36 바이트

ＥＥ×125⁵⁺⁺×0⁻²÷κ³ι×0÷κ³⁺⁺✂ι⁰±²¦¹,✂ι±²

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

   125                                  String `125`
  ×   ⁵                                 Repeated 5 times
 Ｅ                                      Map over each character
              ÷κ³   ÷κ³                 Integer divide loop index by 3
            ⁻²                          Subtract from 2
          ×0      ×0                    Repeat the string `0` x times
        ⁺⁺       ι                      Concatenate with the character
Ｅ                                       Map over each resulting string
                         ✂ι⁰±²¦¹        Slice off the last two digits
                                ✂ι±²    Extract the last two digits
                       ⁺⁺       ,       Concatenate with a comma
                                        Implicitly print one per line

SOGL 온라인 오프라인, 27 26 25 24 23 22 21 바이트

252¹5∙īυ;{⁴Ζ.,ŗP*F⁾?½

여기 사용해보십시오!

온라인 링크에는 후행 0이 표시되지 않지만 오프라인 버전은 Java BigDecimal이 좋으므로 오프라인 버전이 표시됩니다.

설명:

252¹5∙īυ;{⁴Ζ.,ŗP*F⁾?½
252¹                 push the array [2, 5, 2]
    5∙               multiply vertically by 5
      īυ;            push 0.01 below that - the main number
         {           iterate over that array - [2,5,2,2,5,2,2,5,2,2,5,2,2,5,2]
          ⁴            duplicate the main number
           Ζ.,ŗ        replace "." with ","
               P       output in a new line
                *      multiply the main number with the current item of the array
                 F⁾?   if the current array item-2 isn't 0, then
                    ½    divide by 2

오프라인 인터프리터에서 실행하려면 SOGLOnlines 리포지토리를 다운로드 하고 컴파일러 / 인터프리터로 이동 한 후 Processing으로.pde 파일을 연 다음 파일-> OS 내보내기를 수행하십시오 (그렇지 않으면 처리 프로그램에 인수를 제공 할 수 없음 : /), 그런 다음 코드로 파일의 경로에 대한 인수를 사용하여 컴파일 된 프로그램을 실행하십시오. 그런 다음 stdout에 this 가 포함 됩니다.

2L¼2¹5∙īυ;{⁴Ζ.,ŗP*18 바이트 동안 거의 작동하지만 제로 양이 증가하여 줄 0,01 0,02 0,050 0,100 0,200 0,5000 1,0000 2,0000 5,00000 10,00000 20,00000 50,000000 100,000000 200,000000 500,0000000바꿈이 공백으로 바 replaced

자바 8 109 108 81 80 바이트

로케일 아이디어를위한 @ OlivierGrégoire에게 감사합니다

x->{for(double i=.001;i<11;)System.out.printf("%.2f %.2f %.2f ",i*=10,i*2,5*i);}

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

배쉬 , 38 바이트

printf %.2f\\n {1,2,5}e{-2..2}|sort -h

적절한 로케일이 필요하며, 기본적으로 허용되며 바이트는 없습니다 .

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

APL (Dyalog) , 30 28 바이트

완전한 프로그램. 공백으로 구분하여 STDOUT으로 출력합니다.

'\.'⎕R','⊢2⍕×\.01,14⍴2 2.5 2

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

2 2.5 2 목록;
 [2,2.5,2]

14⍴ 주기적 r에 길이 14 eshape 단계;
 [2,2.5,2,2,2.5,2,2,2.5,2,2,2.5,2,2,2.5]

.01 0.01을 첨가하다;
 [0.01,2,2.5,2,2,2.5,2,2,2.5,2,2,2.5,2,2,2.5]

×\ 누적 곱셈;
 [0.01,0.02,0.05,0.1,0.2,0.5,1,2,5,10,20,50,100,200,500]

2⍕ 소수점 이하 두 자릿수;
 " 0.01 0.02 0.05 0.10 0.20 0.50 1.00 2.00 5.00 10.00 20.00 50.00 100.00 200.00 500.00"

⊢ (분리하는 것을 수득 ','에서 2)

'\.'⎕R',' PCRE R 쉼표 eplace 기간;
 " 0,01 0,02 0,05 0,10 0,20 0,50 1,00 2,00 5,00 10,00 20,00 50,00 100,00 200,00 500,00"

R 70 , 50 바이트

@Giuseppe에서 영감을 얻은 것 :

format(c(1,2,5)*10^rep(-2:2,e=3),ns=2,de=",",sc=F)

여기 사용해보십시오!

언 골프

format(c(1,2,5)*10^rep(-2:2, each = 3),
   nsmall = 2, 
   decimal.mark = ",",
   scientific = FALSE)

Pyth , 37 바이트

smmX%"%.2f"*dk\.\,[1 2 5)[.01.1 1T^T2

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

Pyth , 37 바이트

몇 분 안에 단축됩니다.

V[.01.1 1T^T2)V[1 2 5)X%"%.2f"*NH\.\,

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

자바 스크립트 (ES6), 83 바이트

배열을 반환합니다.

_=>[...'125'.repeat(k=5)].map(c=>(c*(c-1?k:k*=10)/5e3).toFixed(2).split`.`.join`,`)

데모

let f = 

_=>[...'125'.repeat(k=5)].map(c=>(c*(c-1?k:k*=10)/5e3).toFixed(2).split`.`.join`,`)

console.log(f())

재귀 버전 (ES7), 84 바이트

후행 공백이있는 문자열을 반환합니다.

f=(i=0)=>i<15?('125'[i%3]/100*10**(i/3|0)).toFixed(2).split`.`.join`,`+' '+f(i+1):''

데모

f=(i=0)=>i<15?('125'[i%3]/100*10**(i/3|0)).toFixed(2).split`.`.join`,`+' '+f(i+1):''

console.log(f())

파이썬 2 , 80 77 75 73 바이트

@ Mr.Xcoder
덕분에
-2 바이트 @EriktheOutgolfer 덕분에 -1 바이트 @totallyhuman 덕분에 -2 바이트 @Lynn 덕분에
-2 바이트

print[('%.2f'%(v*m)).replace(*'.,')for m in.01,.1,1,10,100for v in 1,2,5]

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

레티 나 , 42 바이트

5$*0
0
$'1$`¶$'2$`¶$'5$`¶
..¶
,$&
m`^00?

온라인으로 사용해보십시오! 설명 : 5 개 위치에 각각 1, 2 및 5의 값이 15 개 있습니다. 첫 번째 단계는 5 개의 0을 삽입합니다. 두 번째 단계는 사각형으로 반복 한 후 후행 대각선을 1로 변경 한 다음 해당 줄을 2와 5로 세 번 복제합니다. 세 번째 단계는 쉼표를 삽입하고 마지막 단계는 불필요한 선행 0을 제거합니다.

숯 , 37 바이트

”{➙∧N\`�4✳×″↶tι⦄|Ｑ~(↥↗⁻“Ｑ§U‴w⎇δUη◨÷¤Ｇ”

온라인으로 사용해보십시오! 링크는 자세한 버전입니다.

예, 압축!

배쉬 , 88 바이트

s=125
for i in {0..14};{ printf %1.2f\  `bc<<<"scale=2;${s:i%3:1}*10^$[i/3-2]"`|tr . ,;}

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

자바 스크립트 (ES6), 81 바이트

배열을 반환합니다.

_=>[...Array(13),b=.005,i=0].map(p=>(b*=++i%3?2:2.5).toFixed(2).replace(".",","))

데모

let f = 

_=>[...Array(13),b=.005,i=0].map(p=>(b*=++i%3?2:2.5).toFixed(2).replace(".",","))

console.log(f())

공통 리스프, 95 바이트

(dotimes(i 5)(dolist(j'(1 2 5))(princ(substitute #\, #\.(format()"~$ "(*(expt 10(- i 2))j))))))

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

껍질 , 28 바이트

ṁm↔ṪöJ',CtN`J§¤eR'0≥≤2ḣ5"125

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

Husk은 부동 소수점 숫자를 형식화하는 데 끔찍하기 때문에 문자열 조작 만하면됩니다.

설명

ṁm↔ṪöJ',CtN`J§¤eR'0≥≤2ḣ5"125
                        "125  The string "125".
                      ḣ5      The range [1,2,3,4,5].
   Ṫö                         Compute their outer product wrt this function:
                               Arguments are number n (say 3) and character c (say '5').
             §     ≥≤2         Compute max(0,n-2+1) and max(0,2-n+1),
                R'0            repeat '0' those numbers of times,
              ¤e               and put them into a list: ["00",""]
           `J                  Join with c: "005"
        CtN                    Split to lengths 2 and at most 3: ["00","5"]
     J',                       Join with ',': "00,5"
                              This gives a 2D array of the outputs reversed.
ṁ                             Map and concatenate
 m↔                           map reversal.
                              Implicitly print separated by newlines.

C ++, 138120 바이트

MSalters 덕분에 -18 바이트

#include<iostream>
void p(){for(auto&a:{"0,0%d ","0,%d0 ","%d,00 ","%d0,00 ","%d00,00 "})for(int b:{1,2,5})printf(a,b);}

Lynn의 하드 코딩 된 버전, 116 바이트

#include<ios>
void p(){puts("0,01 0,02 0,05 0,10 0,20 0,50 1,00 2,00 5,00 10,00 20,00 50,00 100,00 200,00 500,00");}

R , 70 61 바이트

options(scipen=9,OutDec=",")
print(c(1,2,5)*10^rep(-2:2,e=3))

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

Rui Barradas 덕분에 -9 바이트

AndriusZ에 의해 outgolfed

C (gcc) , 82 바이트

p(n){printf("%d,%02d ",n/100,n%100);}f(n){for(n=1;n<5e4;n*=10)p(n),p(n*2),p(n*5);}

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

05AB1E , 25 바이트

125S5иεN3÷°*т/'.',:N2›i0«

문자열 목록을 반환합니다.

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

설명:

125                          # Push 125
   S                         # Split to a list of digits: [1,2,5]
    5и                       # Repeat it 5 times: [1,2,5,1,2,5,1,2,5,1,2,5,1,2,5]
      ε                      # Map each to:
       N3÷                   #  Integer-divide the map-index by 3
          °                  #  Take it to the power 10
           *                 #  Multiply the current map number with it
            т/               #  Divide it by 100
              '.',:          #  Replace all "." with ","
                   N2›i      #  And if the map-index is larger than 2:
                       0«    #   Append a "0"

125S5и수 •}•15∍(푸시 압축 125, 크기 15에 확대 : 125125125125125)과 '.',:수 „.,`:(푸시 문자열을 ".", 팝업 스택에 분리 된 항목으로 문자를 밀어) 같은 바이트 카운트 : 온라인으로보십시오.
또한 ( 빼기 2로) N3÷°*т/단축 할 수는 있지만 불행히도 모든 숫자가 소수가되는 반면 대부분의 숫자는 정수로 유지됩니다.N3÷Í°*Í/N3÷Í°*

T-SQL, 104 바이트

SELECT FORMAT(p*n,'0\,00')
FROM(VALUES(1),(2),(5))a(n),(VALUES(1),(10),(100),(1E3),(1E4))b(p)
ORDER BY p,n

줄 바꿈은 가독성을위한 것입니다.

성가신 PRINT버전 (90 바이트) 보다 더 길다 :

PRINT'0,01 0,02 0,05 0,10 0,20 0,50 1,00 2,00 5,00 10,00 20,00 50,00 100,00 200,00 500,00'

풍선 껌 , 41 바이트

00000000: 1dc5 8105 0040 1402 d055 1ae0 50d1 feab  .....@...U..P...
00000010: dd2f 788f 8fc2 e192 433c 5c42 e891 7049  ./x.....C<\B..pI
00000020: 11ab 67a6 b8bc 90f5 01                   ..g......

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

망막 , 58 바이트

¶0¶00¶000¶0000¶
.*¶
1$&2$&5$&
^
¶
+`¶(.?.?¶)
¶0$1
..¶
,$&

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

루비 , 66 62 바이트

-2.upto 2{|m|[1,2,5].map{|v|$><<('%.2f '.%v*10**m).tr(?.,?,)}}

Lynn 덕분에 4 바이트 단축 !

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

C # (. NET 코어) 107 바이트

Console.Write("0,01{0}2{0}5 0,10 0,20 0,50 1{1}2{1}5{1}1{2}2{2}5{2}10{2}20{2}50{2}"," 0,0",",00 ","0,00 ");

그것을 실행

자바 스크립트-96 바이트

x=>{for(o="",b=-2;b<3;b++)for(n of[1,2,5])o+=(n*10**b).toFixed(2).replace(".",",")+" ";return o}

그리고 약간 더 긴 (98 자) 기능적 접근 방식이 있습니다.

x=>[].concat.apply([],[.01,.1,1,10,100].map(n=>[n,n*2,n*5])).map(n=>n.toFixed(2).replace(".",","))

J , 36 바이트

echo'.,'charsub 0j2":,1 2 5*/~10^i:2

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

Tcl , 80 바이트

lmap d {-2 -1 0 1 2} {lmap c {1 2 5} {puts [regsub \\. [format %.2f $c\e$d] ,]}}

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

lmap d {.01 .1 1 10 100} {lmap c {1 2 5} {puts [regsub \\. [format %.2f [expr $c*$d]] ,]}}

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

아직도 더 길고 나중에 더 골프를!