2026-04-30 12:34:36 -04:00
|
|
|
-- 21 Feb 2026
|
2026-02-01 16:33:20 -08:00
|
|
|
include Setting
|
2025-08-11 18:05:26 -07:00
|
|
|
|
|
|
|
|
say 'ASSOCIATIVE ARRAY: CREATION'
|
|
|
|
|
say version
|
|
|
|
|
say
|
|
|
|
|
say 'Basic examples...'
|
|
|
|
|
cap.='Unknown'
|
|
|
|
|
cap.be='Brussels'
|
|
|
|
|
cap.fr='Paris'
|
|
|
|
|
cap.uk='London'
|
|
|
|
|
call Capital 'BE'
|
|
|
|
|
call Capital 'UK'
|
|
|
|
|
call Capital 'NO'
|
2026-04-30 12:34:36 -04:00
|
|
|
day.='Unknown'; week.='Unknown'
|
2025-08-11 18:05:26 -07:00
|
|
|
day.jan.2=2; week.jan.2=1
|
|
|
|
|
day.mar.17=76; week.mar.17=12
|
|
|
|
|
day.aug.7=219; week.aug.7=32
|
|
|
|
|
call Calendar 'JAN',2
|
|
|
|
|
call Calendar 'AUG',7
|
|
|
|
|
call Calendar 'MAY',16
|
|
|
|
|
say
|
|
|
|
|
say 'Keys can have any value...'
|
|
|
|
|
a.cat='civet'; say 'a.cat =' a.cat
|
|
|
|
|
a1='dog'; a.a1='pitbull'
|
|
|
|
|
a2=a1; say 'a.'a2 '=' a.a2
|
|
|
|
|
a1='x.y.z'; a.a1='periods'
|
|
|
|
|
a2=a1; say 'a.'a2 '=' a.a2
|
|
|
|
|
a1='x y z'; a.a1='spaces'
|
|
|
|
|
a2=a1; say 'a.'a2 '=' a.a2
|
2026-02-01 16:33:20 -08:00
|
|
|
a1='└┴┬├─┼'; a.a1='special characters'
|
2025-08-11 18:05:26 -07:00
|
|
|
a2=a1; say 'a.'a2 '=' a.a2
|
|
|
|
|
say
|
2026-04-30 12:34:36 -04:00
|
|
|
call Showvars
|
2025-08-11 18:05:26 -07:00
|
|
|
exit
|
|
|
|
|
|
|
|
|
|
Capital:
|
|
|
|
|
arg country
|
|
|
|
|
say 'The capital of' country 'is' cap.country
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
Calendar:
|
|
|
|
|
arg mm,dd
|
|
|
|
|
say mm dd 'is day no' day.mm.dd 'and week no' week.mm.dd
|
|
|
|
|
return
|
|
|
|
|
|
2026-04-30 12:34:36 -04:00
|
|
|
-- Showvars
|
2026-02-01 16:33:20 -08:00
|
|
|
include Math
|
