aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Call-an-object-method/ArkScript/call-an-object-method.ark Normal file
View file

@ -0,0 +1,17 @@
(let create_user (fun (username password age) {
(let change_username (fun (new_name)
(set username new_name)))
(let check_password (fun (pass)
(= pass password)))
(fun (&username &password &age &change_username &check_password) ()) }))
(let me (create_user "Lex" "passw0rd" 25))
(let john (create_user "John" "qwerty123" 28))
(assert (not (me.check_password "test!")) "password is not 'test!'")
(assert (!= me.username john.username) "usernames are distinct")
(assert (= me.username "Lex") "my username is Lex")
(me.change_username "Rosetta")
(assert (= me.username "Rosetta") "my username is now Rosetta!")