DouKaku?

component doukaku245
  export Executable

  object NewException extends Exception
    toString(): String = "Exception occured!"
  end

  run(args: String...): () = do
    try
      throw NewException
    catch e
      NewException => fail(e.toString())
    finally
      println("End of Exception test.")
    end

  end
end

component doukaku239
  import List.{...}
  export Executable

  run(args: String...): () = do

    l = <|1, 2, 3, 4, 5|>

    println l.reverse()

  end
end

component doukaku218
  export Executable

  det[\nat n\](M: Matrix[\RR64, n, n\]): RR64 = do
    if n = 1 then
      M[0, 0]
    else
      d: RR64 := 0
      for j <- 0#n do
        d += (-1)^j M[0, j] det(matrix[\RR64, n-1, n-1\]().fill(fn (k, l) =>
                                if l < j then M[k+1, l] else M[k+1, l+1] end))
      end
      d
    end
  end


  run(args: String...): () = do

    A: Matrix[\RR64, 2, 2\] = [1 2
                               3 4]

    println det(A)

  end
end

component doukaku215
  import List.{...}
  export Executable

  run(args: String...): () = do

    do
      for i <- 0#10 do
        t = spawn print i ", "
        t.wait()
      end
    also do
      for c <- <|"A", "B", "C", "D", "E", "F", "G", "H", "I", "J"|> do
        t = spawn print c ", "
        t.wait()
      end
    end
    print "\n"

  end
end

component doukaku25
 export Executable

 run(args: String...): () = do

   for n <- 2:10000 do
     if (SUM[i <- 1:floor(n/2), (n MOD i) = 0] i) = 2 n then
       println n
     end
   end

 end
end

export Executable
run(args) = print "Hello, world!\n"