Theory Tangent_Secant_Imperative_Test

theory Tangent_Secant_Imperative_Test
  imports Tangent_Numbers_Imperative Secant_Numbers_Imperative
begin

definition "tangent_number_imp n = 
  do {
    a  tangent_numbers_imperative.compute_imp (nat_of_integer n);
    xs  Array.freeze a;
    return (map integer_of_nat xs)
  }"

ML_val @{code tangent_number_imp} 100 ()


definition "secant_number_imp n = 
  do {
    a  secant_numbers_imperative.compute_imp (nat_of_integer n);
    xs  Array.freeze a;
    return (map integer_of_nat xs)
  }"

ML_val @{code secant_number_imp} 100 ()

end