mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
30 lines
394 B
Idris
30 lines
394 B
Idris
module BigFins
|
|
|
|
import Control.Monad.State
|
|
|
|
import Data.Fin
|
|
|
|
%default total
|
|
|
|
public export
|
|
interface I a where
|
|
fun : (a, a) -> a
|
|
|
|
export
|
|
{n : Nat} -> I (Fin $ S n) where
|
|
fun = ?fin_rhs
|
|
|
|
export
|
|
printVerdict : HasIO m => a -> m ()
|
|
printVerdict it = ?printVerdict_rhs
|
|
|
|
N : Nat
|
|
N = 100000
|
|
|
|
St, D : Fin $ S N
|
|
St = 2000
|
|
D = 2004
|
|
|
|
main : IO ()
|
|
main = printVerdict $ fun {a=Fin $ S N} (St, St + D)
|