This commit is contained in:
NikolajDanger
2022-06-16 17:37:07 +02:00
parent 188047f928
commit 48e8bf97fb
13 changed files with 397 additions and 127 deletions

View File

@@ -1,11 +1,11 @@
DEFINI fib x VT {
DEFINI fib(x) VT {
SI x EST NVLLVS TVNC {
REDI NVLLVS
REDI(NVLLVS)
} ALVID SI x EST I TVNC {
REDI I
REDI(I)
} ALVID {
REDI ((INVOCA fib (x-II)) + (INVOCA fib (x-I)))
REDI(INVOCA fib(x-II) + INVOCA fib(x-I))
}
}
DICE INVOCA fib (AVDI_NVMERVS)
DICE(INVOCA fib(AVDI_NVMERVS()))

17
tests/guessing.cent Normal file
View File

@@ -0,0 +1,17 @@
CVM FORS
DESIGNA correct VT FORTIS_NVMERVS(I,C)
DESIGNA gvess VT NVLLVS
DVM FALSITAS FACE {
DESIGNA gvess VT AVDI_NVMERVS()
SI gvess MINVS correct TVNC {
DICE("Too low!")
} ALVID SI gvess PLVS correct TVNC {
DICE("Too high!")
} ALVID {
ERVMPE
}
}
DICE("You guessed correctly!")