giles
f26f25f146
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 50s
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
52 lines
1.5 KiB
Plaintext
52 lines
1.5 KiB
Plaintext
;; person.hs — record type with accessors, update, deriving Show.
|
|
;;
|
|
;; Exercises Phase 14: data with record syntax, accessor functions,
|
|
;; record creation, record update, deriving Show on a record.
|
|
|
|
(define
|
|
hk-person-source
|
|
"data Person = Person { name :: String, age :: Int } deriving (Show)\n\nalice = Person { name = \"alice\", age = 30 }\nbob = Person { name = \"bob\", age = 25 }\n\nbirthday p = p { age = age p + 1 }\n")
|
|
|
|
(hk-test
|
|
"person.hs — alice's name"
|
|
(hk-deep-force (hk-run (str hk-person-source "main = name alice")))
|
|
"alice")
|
|
|
|
(hk-test
|
|
"person.hs — alice's age"
|
|
(hk-deep-force (hk-run (str hk-person-source "main = age alice")))
|
|
30)
|
|
|
|
(hk-test
|
|
"person.hs — birthday adds one year"
|
|
(hk-deep-force
|
|
(hk-run (str hk-person-source "main = age (birthday alice)")))
|
|
31)
|
|
|
|
(hk-test
|
|
"person.hs — birthday preserves name"
|
|
(hk-deep-force
|
|
(hk-run (str hk-person-source "main = name (birthday alice)")))
|
|
"alice")
|
|
|
|
(hk-test
|
|
"person.hs — show alice"
|
|
(hk-deep-force (hk-run (str hk-person-source "main = show alice")))
|
|
"Person \"alice\" 30")
|
|
|
|
(hk-test
|
|
"person.hs — bob has different name"
|
|
(hk-deep-force (hk-run (str hk-person-source "main = name bob")))
|
|
"bob")
|
|
|
|
(hk-test
|
|
"person.hs — pattern match in function"
|
|
(hk-deep-force
|
|
(hk-run
|
|
(str
|
|
hk-person-source
|
|
"greet (Person { name = n }) = \"Hi, \" ++ n\nmain = greet alice")))
|
|
"Hi, alice")
|
|
|
|
{:fails hk-test-fails :pass hk-test-pass :fail hk-test-fail}
|