Submission #1990230

---

Source Code Expand

import strutils,sequtils
var
    NY:seq[int] = readLine(stdin).split(" ").map(parseInt)
    N = NY[0]
    Y = NY[1]
    x,y,z:int
proc isPositive(a:int,b:int,c:int):bool =
    if a >= 0 and b >= 0 and c>= 0: return true
    else: return false
proc money():string {.discardable.} =
    for i in 1..N:
        x = Y div (i * 10000)
        for r in 1..N:
            y = ((Y mod (i * 10000)) div (r * 5000))
            z = N - (x + y)
            #if x >= 0 and y >= 0 and z >= 0 and ((10000 * x) + (5000 * y) + (1000 * z)) == Y: 
            if isPositive(x,y,z) and ((10000 * x) + (5000 * y) + (1000 * z)) == Y:
                return $x & " " & $y & " " & $z
    return "-1 -1 -1"
echo money()

Submission Info

Compile Error

Hint: system [Processing]
Hint: Main [Processing]
Hint: strutils [Processing]
Hint: parseutils [Processing]
Hint: sequtils [Processing]
Hint:  [Link]
Hint: operation successful (12947 lines compiled; 1.887 sec total; 13.138MB; Release Build) [SuccessX]

Judge Result