알아, 제목이 너를 깨뜨린 다

금액이 산출되면 가장 적은 수의 동전 이 그 금액을 구성합니다.

예

0.1
1 dime

0.01
1 penny

0.28
1 quarter 3 penny

0.56
2 quarter 1 nickel 1 penny

1.43
5 quarter 1 dime 1 nickel 3 penny

투기

• 달러로 100 센트.
• 각 유형의 동전 값은 다음과 같습니다.
  • penny 1 센트
  • nickel 5 센트
  • dime 10 센트
  • quarter 25 센트

이 작업을 사소한 내장 기능은 허용되지 않습니다.

I / O

입력은 합계의 달러 값을 나타내는 10 진수입니다.

• 복수형 필요 없음
• 주문 : quarter->penny
• 출력은 <#_of_coins> <coin type>
• Seperators : ,또는 ,또는

허용되는 유일한 후행 공백은 단일 후행 줄 바꿈 / 공백입니다.

코인 유형이 0이면 해당 코인 유형이 표시되지 않아야합니다 . 예 : 0.25-> 1 quarter 아님 1 quarter 0 dime 0 nickel 0 penny

CJam, 60

q~e2i[25A5]{md}/]" quarterx dimex nickelx penny"'x/.+{0#},S*

이 스크립트는 개선의 여지가 많은 것 같지만 지금까지는 짧습니다. 내장 된 "md"명령을 사용하여 나누기의 정수 결과와 나머지를 모두 리턴합니다. 다음을 수행합니다.

• 입력을 읽습니다 (함수라면 두 문자 이하로 q ~를 제거 할 수 있다고 생각합니다)
• 100을 곱한 값을 정수로 변환
• 스택에서 나머지를 초래하는 [25 10 5]를 사용하여 "md"를 수행합니다.
• 숫자와 동전 이름을 결합
• 전자가 0이면 숫자와 동전 이름을 제거합니다
• 사전 번호 0을 추가합니다

여기 사용해보십시오

이전 버전 :

q~e2i[25A5]{md}/]_:!:!" quarter x dime x nickel x penny"'x/.*.+e_0-
q~e2i[25A5]{md}/]_:!:!\" quarter x dime x nickel x penny"'x/.+.*

자바 스크립트 ES6, 107 바이트

n=>((n*=100)/25|0)+` quarter ${(n%=25)/10|0} dime ${n%10/5|0} nickel ${n%5|0} penny`.replace(/ ?0 \S+/g,"")

간단한 수학.

파이썬 2, 120 바이트

n=int(round(input()*100))
a=25
for b in"quarter","dime","nickel","penny":
 if n>=a:print"%d "%(n/a)+b,
 n%=a;a=40/a+5^12

안전을 위해, 적어도 @Ogaday의 의견을 고치는 데 확실히 작동하는 것으로 변경되었습니다. 필요 여부는 확실하지 int()않지만, 필요 하지 않다는 것을 확신시키는 데 어려움을 겪고 있습니다.

print`n/a`+" "+b,

는 여분의 바이트 오프이지만 L큰 입력의 경우 여분 을 인쇄합니다 (이 코드는 부동 소수점 정밀도로 인해 매우 큰 입력에서는 작동하지 않지만).

dc, 104

"가독성"에 추가 된 줄 바꿈 :

[dn[ quarter ]n]sq
[dn[ dime ]n]sd
[dn[ nickel ]n]sn
[d1/n[ penny ]n]sp
?A0*
25~rd0<qst
A~rd0<dst
5~rd0<nst
d0<p

망막 , 97

@randomra에게 감사합니다 (항상)-1 바이트를 절약했습니다.

입력이 xxx.yy또는 형식이라고 가정합니다 xxx.y.

\..$
$&0
\.

.+
$0$*:
(:{25})+
$#1 quarter 
(:{10})+
$#1 dime 
(:{5})+
$#1 nickel 
(:)+
$#1 penny

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

Vitsy, 110 (100) 97 바이트

그래, 잠깐만, 난 아직도이 방법을 사용하고있어.

aa**Dv52^1m([N' retrauq 'Z]v52^MDva1m([N' emid 'Z]vDvaM51m([N' lekcin 'Z]v5MD([N'ynnep 'Z]
/D1M-D

곧 출시 될 자세한 모드의 설명 :

push a;
push a;
multiply top two;
multiply top two;
duplicate top item;
save top as temporary variable;
push 5;
push 2;
push second to top to the power of top;
push 1;
goto top method;
if (int) top is 0;
begin recursive area;
output top as number;
push " quarter ";
output stack as chars;
end recursive area;
save top as temporary variable;
push 5;
push 2;
push second to top to the power of top;
modulo top two;
duplicate top item;
save top as temporary variable;
push a;
push 1;
goto top method;
if (int) top is 0;
begin recursive area;
output top as number;
push " dime ";
output stack as chars;
end recursive area;
save top as temporary variable;
duplicate top item;
save top as temporary variable;
push a;
modulo top two;
push 5;
push 1;
goto top method;
if (int) top is 0;
begin recursive area;
output top as number;
push " nickel ";
output stack as chars;
end recursive area;
save top as temporary variable;
push 5;
modulo top two;
duplicate top item;
if (int) top is 0;
begin recursive area;
output top as number;
push " penny";
output stack as chars;
end recursive area;
:
divide top two;
duplicate top item;
push 1;
modulo top two;
subtract top two;
duplicate top item;

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

Java 8 람다, 165 바이트

입력 y을 double 또는 float로 예상합니다 .

y->{int c,d=(int)(y*100);return(((c=d/25)>0)?c+" quarter ":"")+(((c=(d=d%25)/10)>0)?c+" dime ":"")+(((c=(d=d%10)/5)>0)?c+" nickel ":"")+(((d=d%5)>0)?d+" penny":"");}

너무 많은 삼항. ;-;

자바 스크립트 ES6, 202 200 바이트

나는 이것이 골프 될 수 있기를 바랍니다 ...

r=>eval('i=[.25,.1,.05,.01];v=[0,0,0,0];for(k=0;k<4;k++)for(;r>=i[k];v[k]++,r-=i[k],r=((r*100+.01)|0)/100);v.map((x,i)=>x?x+" "+"quarter0dime0nickel0penny".split(0)[i]:"").join` `.replace(/ +/g," ")')

Ungolfed 코드 :

function m(r){
    i=[.25,.1,.05,.01]
    v=[0,0,0,0]
    for(k=0;k<4;k++)for(;r>=i[k];v[k]++,r-=i[k],r=((r*100+.01)|0)/100);
    return v.map((x,i)=>x?x+" "+"quarter0dime0nickel0penny".split(0)[i]:"").join(" ").replace(/ +/g," ");
}

LabVIEW, 62 LabVIEW 프리미티브

이름과 값에 대해 2 개의 배열을 만들고 모듈러스 연산자 (R IQ 사물)를 사용하여 맨 위 (i가있는 인덱스 배열)를 통과했습니다. 나머지 코인은 시프트 레지스터로 전달됩니다.

값이 0보다 크면 숫자를 문자열로 변환하고 전달 된 문자열을 숫자와 동전 이름을 연결하고 시프트 레지스터에 다시 넣습니다.

Ijus는 내 gif가 잘못된 경우를 보여주지 않지만 어쨌든 볼 것이 없다는 것을 깨달았습니다.

apt, 77 바이트

` {U*=L /25|0} quÂòr {U%=25 /A|0} ÜX {U%A/5|0} Íõel {U%5|0} p¿ny` r" 0 %S+" x

고맙게도, 네 개의 코인 이름은 모두 압축 가능합니다. 는 ¿문자 그대로 바이트를 0x81해야합니다. 온라인으로 테스트하십시오!

C, 147 144 142 140 바이트

a[]={25,10,5,1},m,i=0;f(float n){for(m=n*100;i<4;m%=a[i++])m/a[i]&&printf("%d %s ",m/a[i],(char*[]){"quarter","dime","nickel","penny"}[i]);}

테스트로 풀리지 않은 :

#include <stdio.h>

a[]={25,10,5,1},m,i=0;

f(float n)
{
    for(m=n*100;i<4;m%=a[i++])
        if(m/a[i])
            printf("%d %s ",m/a[i],(char*[]){"quarter","dime","nickel","penny"}[i]);
}

int main()
{
    float test[] = {.1, .01, .28, .56, 1.43};
    for(int j = 0; j < 5; i = 0)
    {
        f(test[j++]);
        printf("\n");
    }
}

MATL 82 106 107

'%i quarter %i dime %i nickel %i penny'i[.25 .1 .05]"@2#\w]100*Yo5$YD'0 \S+ ?'[]YX

MATL Online 에서 사용해보십시오 !

자바 스크립트, 156 (145) 144 바이트

ETHproduction의 공식 답변과 일치하지 않지만 어쨌든 ...

function c(t){n=['quarter','dime','nickel','penny'];v=[.25,.1,.05,.01];s='';for(i in v){c=t/v[i]|0;if(c>0)s+=c+' '+n[i]+' ';t-=c*v[i];}return s}

이것은 내 첫 번째 골프 라운드 중 하나이므로 모든 개선 사항을 높이 평가합니다! 나는 이미 ETH의 "xor trunc"를 훔쳤습니다. 죄송합니다. 너무 똑똑했습니다 :-)

더 읽기 쉬운 :

function c(t)
{
  n = ['quarter', 'dime', 'nickel', 'penny'];
  v = [.25, .1, .05, .01];
  s = '';
  for(i in v)
  {
    c = t/v[i]|0;
    if(c>0) s += c+' '+n[i]+' ';
    t -= c*v[i];
  }
  return s
}

참고 : 나는 자바 스크립트 그 (? 내 컴퓨터에 적어도) 분할 실현 테스트하는 동안 1.13 / 0.01로를 1.12999...내 (그리고 아마도 다른 모든 JS 제출)하고, 제대로 100 % 작동하지 ...

펄 5 - 128 124 바이트

나는 이것을 훨씬 더 짧게 다시 쓸 수 있다고 생각하지만 실제로는 그것을 볼 수 없습니다.

$s=<>*100;@v=($s/25,$s%2.5,$s%25%10/5,$s%250%5);map{$l=int($_);print$l.$".qw(quarter dime nickel penny)[$i].$"if$l>0;$i++}@v

편집 : 4 문자를 저장하는 수학 트릭.

펄 6 , 96 바이트

$/=get;put map {$_=Int($//$^a);$/%=$a;"$_ $^b" if $_},<.25 quarter .1 dime .05 nickel .01 penny>

$/ = get; # set $/ to the input

# print the following list with spaces between
# and a newline at the end
put map {
  # the parameters to this block are $a, and $b
  # which are declared as placeholder parameters $^a, and $^b

  $_ = Int( $/ / $^a ); # set $_ to the count of the current coin

  $/ %= $a;             # set $/ to the modulus of itself and the current coin

  "$_ $^b" if $_        # return a string if $_, otherwise return Empty
},
<
  .25 quarter
  .1  dime
  .05 nickel
  .01 penny
>

용법:

for amount in  0.1  0.01  0.28  0.56  1.43; do
  echo $amount | perl6 -e'…';
done

1 dime
1 penny
1 quarter 3 penny
2 quarter 1 nickel 1 penny
5 quarter 1 dime 1 nickel 3 penny

파이썬 2, 167 바이트

업데이트 1 : Stole Sp3000의 아이디어는 input ()을 사용하고 코드를 함수 대신 스크립트로 만드는 것입니다.

a=input()*100;k={25:0,10:0,5:0,1:0}
for i in k:k[i]=a//i;a%=i
print' '.join(['%d %s'%(k[x],{25:'quarter',10:'dime',5:'nickel',1:'penny'}[x]) for x in k if k[x]])

C, 162 바이트

불행히도가 없으면 작동하지 않습니다 #include.

#include <stdlib.h>
i,a[]={25,10,5,1};main(c,v)char**v;{for(c=atof(v[1])/.01;c;c%=a[i++])c/a[i]?printf("%d %s ",c/a[i],"quarter\0dime\0   nickel\0 penny"+8*i):0;}

언 골프

#include <stdlib.h>

i,a[]={25,10,5,1}; /* loop index, coin values */

main(c,v) char**v;
{
    /* Get dollar amount from command line, convert to pennies */
    for (c=atof(v[1])/.01;c;c%=a[i++]) /* loop while still change... */
    {
        c/a[i] /* if there are coins at this index... */
            ? printf("%d %s ", c/a[i], "quarter\0dime\0   nickel\0 penny"+8*i) /* print out how many */
            : 0;
    }
}

루아 5.3 141 139 132 131 바이트

Sp3000의 Python 답변을 기반으로하지만 내 자신의 마술 공식을 사용합니다.

n=.5+100*io.read'n'a=25
for s in("quarter dime nickle penny "):gmatch".- "do
_=n<a or io.write(s,~~(n//a)," ")n=n%a
a=35%a|#s%2
end

편집- a수식을 개선했습니다 . 이전에는이었습니다 a=a*3%13~#s%4.

편집 2-이전에는 math.ceil정수로 반올림하고 변환하는 데 사용 했습니다. 이제 나는 //반올림하고 다시 추가하고 있습니다.~~ 하고 정수로 변환하기 위해 하고 있습니다.

편집 3-패턴을에서 "%w+ "로 변경하여 문자를 면도했습니다 ".- ".

K (oK) , 95 78 바이트

해결책:

{" "/,/`quarter`dime`nickel`penny{("";$y,x)y>0}'(-c,1)!'{y!x}\x,c:25 10 5}100*

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

예:

{" "/,/`quarter`dime`nickel`penny{("";$y,x)y>0}'(-c,1)!'{y!x}\x,c:25 10 5}100*0.92
"3 quarter 1 dime 1 nickel 2 penny"
{" "/,/`quarter`dime`nickel`penny{("";$y,x)y>0}'(-c,1)!'{y!x}\x,c:25 10 5}100*0.95
"3 quarter 2 dime"

설명:

각 동전으로 입력을 모듈로 한 다음 결과로 동전을 나눕니다.

코인의 이름과 함께 각 결과를 함수에 공급하고 코인 수가 0이 아닌 경우 두 문자열 값을 반환합니다.

모든 것을 아래로 병합하고 공백과 함께 결합하십시오.

코 틀린 , 147 바이트

{listOf("quarter" to 25,"dime" to 10,"nickel" to 5,"penny" to 1).fold((it*100).toInt()){d,(n,a)->val z=d/a
if(z>0){print("$z $n ")
d-(z*a)}else d}}

미화

{
    listOf(
            "quarter" to 25,
            "dime" to 10,
            "nickel" to 5,
            "penny" to 1).fold((it * 100).toInt()) { d, (n, a) ->
        val z = d / a
        if (z > 0) {
            print("$z $n ")
            d - (z * a)
        } else d
    }
}

테스트

import java.io.ByteArrayOutputStream
import java.io.PrintStream

var f:(Double)->Unit =
{listOf("quarter" to 25,"dime" to 10,"nickel" to 5,"penny" to 1).fold((it*100).toInt()){d,(n,a)->val z=d/a
if(z>0){print("$z $n ")
d-(z*a)}else d}}

val TEST = listOf(
        0.1 to "1 dime",
        0.01 to "1 penny",
        0.28 to "1 quarter 3 penny",
        0.56 to "2 quarter 1 nickel 1 penny",
        1.43 to "5 quarter 1 dime 1 nickel 3 penny"
)

fun main(args: Array<String>) {
    val temp = ByteArrayOutputStream()
    System.setOut(PrintStream(temp))
    for ((input, output) in TEST) {
        temp.reset()
        f(input)
        println()
        val text = temp.toString().trim()
        if (text != output) {
            throw AssertionError("$input '$output' != '$text'")
        }
    }
}

TIO

TryItOnline