commit e81eb5bada5f6ba5e1ca416cbc1a6ae30b2a2319
parent 70547a43d57539ef691b20c928733244d8a2d850
Author: Metalympiáda <metalympiada@matfyz.cz>
Date: Wed, 26 Jun 2024 12:08:52 +0200
Add a semi-correct solution for round 1 problem 7
Diffstat:
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/metatron13.scm b/metatron13.scm
@@ -169,6 +169,8 @@
"tuto pravdivú vetu metatrongpt nerozozná ako pravdivú"
"tato veta bude vyhodnocena podle umelé iteligencie metatrongpt jako veta nepravdiva"))
+(define answer-1-7-half "ak hovorím pravdu, je to táto veta")
+
(define (eval-round1 a)
(let* ((results (map (lambda (i) 0.0) (iota (length a))))
(answers (map preprocess a))
@@ -201,7 +203,9 @@
(if (equal? (list-ref answers 5) answer-1-6-half)
(list-set! results 5 0.5)))
(if (in-list? (list-ref answers 6) answers-1-7)
- (list-set! results 6 1.0))
+ (list-set! results 6 1.0)
+ (if (equal? (list-ref answers 6) answer-1-7-half)
+ (list-set! results 6 0.5)))
(list-set! results 7 1.0)
results)))
