Action Principale : minSpanTree
| 1 | DATA mycas.LinkSetIn; |
| 2 | attrib from varchar(1) to varchar(1) weight numeric; |
| 3 | INFILE DATALINES dlm=' '; |
| 4 | INPUT from $ to $ weight; |
| 5 | DATALINES; |
| 6 | A B 10 |
| 7 | A C 4 |
| 8 | B C 2 |
| 9 | B D 5 |
| 10 | C D 8 |
| 11 | C E 6 |
| 12 | D E 1 |
| 13 | ; |
| 14 | RUN; |