김도겸
가입: 2007년 10월 20일 올린 글: 7
|
올려짐: 2007년10월22일 19:50 주제: test k- program |
|
|
코드: |
let
rTime := {os:={start:=900,finish:=1015}, pl:={start:=1300,finish:=1430}, algorithm := {start:=1600,finish:=1715}, history := 1430}
in
let
lPl := &rTime.pl
in
(write rTime.pl.start;
*lPl := 1350;
write rTime.pl;
write rTime.history;
rTime.history := {begin := 1500, finish:=1650};
write rTime.history.finish);
let
lHistory := &rTime.history;
test := malloc(rTime.history.begin/500)
in
*test := ( *lPl);
*(test+1) := ( *lHistory).finish;
write *test;
write *(test+1)
|
결과는
코드: |
1300
1350
1430
1650
1350
1650
|
|
|