Anonymous user
Table creation/Postal addresses: Difference between revisions
Added EchoLisp
m (→{{header|REXX}}: added comment to the REXX section header about the program's logging/tracking capability.) |
(Added EchoLisp) |
||
Line 221:
addrZIP Char(10) not null
)</lang>
=={{header|EchoLisp}}==
<lang scheme>
(lib 'struct)
(lib 'sql)
(define Postal (make-table
(struct postal (auto: id name street city state zip))))
Postal
→ #table:#struct:postal [id name street city state zip]:[0]
(table-insert Postal '(0 Gallubert "29 rue de l'Ermitage" Paris Seine 75020))
(table-insert Postal '(0 Brougnard "666 rue des Cascades " Paris Seine 75042))
(table-make-index Postal 'postal.id)
(table-print Postal)
[0] 15 Gallubert 29 rue de l'Ermitage Paris Seine 75020
[1] 16 Brougnard 666 rue des Cascades Paris Seine 75042
</lang>
=={{header|Erlang}}==
| |||