15 lines
271 B
Text
15 lines
271 B
Text
procedure main()
|
|
t := table()
|
|
every t[a := !"ABCDE"] := map(a)
|
|
|
|
every pair := !sort(t) do
|
|
write("\t",pair[1]," -> ",pair[2])
|
|
|
|
writes("Keys:")
|
|
every writes(" ",key(t))
|
|
write()
|
|
|
|
writes("Values:")
|
|
every writes(" ",!t)
|
|
write()
|
|
end
|