Skip to content

Commit

Permalink
Benchmark shall loop correctly
Browse files Browse the repository at this point in the history
  • Loading branch information
JaroslavTulach committed Sep 11, 2023
1 parent 294ee46 commit 71b1be5
Showing 1 changed file with 3 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -104,17 +104,17 @@ sum_conv list (acc:V) =
sum_any list (acc:Any) =
case list of
Nil -> acc
Cons x xs -> @Tail_Call sum xs acc+x
Cons x xs -> @Tail_Call sum_any xs acc+x
sum_int list (acc:Integer) =
case list of
Nil -> acc
Cons x xs -> @Tail_Call sum xs acc+x
Cons x xs -> @Tail_Call sum_int xs acc+x
sum_multi list (acc:Text|Decimal|Integer|Any) =
case list of
Nil -> acc
Cons x xs -> @Tail_Call sum xs acc+x
Cons x xs -> @Tail_Call sum_multi xs acc+x
generator n =
go x v l = if x > n then l else
Expand Down

0 comments on commit 71b1be5

Please sign in to comment.