app "test-astar"
    packages { pf: "platform/main.roc" }
    imports [pf.Task, AStar]
    provides [main] to pf

main : Task.Task {} []
main =
    Task.putLine (showBool test1)

#     Task.after Task.getInt \n ->
#         when n is
#             1 ->
#                 Task.putLine (showBool test1)
#
#             _ ->
#                 ns = Num.toStr n
#                 Task.putLine "No test \(ns)"
showBool : Bool -> Str
showBool = \b ->
    if
        b
    then
        "True"
    else
        "False"

test1 : Bool
test1 =
    example1 == [2, 4]

example1 : List I64
example1 =
    step : I64 -> Set I64
    step = \n ->
        when n is
            1 -> Set.fromList [2, 3]
            2 -> Set.fromList [4]
            3 -> Set.fromList [4]
            _ -> Set.fromList []

    cost : I64, I64 -> F64
    cost = \_, _ -> 1

    when AStar.findPath cost step 1 4 is
        Ok path -> path
        Err _ -> []