مثال نشانه گذاری شده
شکل11ـAمثال برنامه جمع عناصر آرایه را نشان می دهد.MLبه صورت مختصر ایجاد می شود این مثال از ML استاندارد New jersey استفاده
می کند.
1 %editor prog.sml
2 fun digit(c:string):int=ord(c).ord("o");
3(*store values as a list of character*)
4 fun SumNext (v)=if v=[ ] then (print ("/n sum") ; o)
5 else(print (hd(v));
6 SumNext(t) (v)+digic (bd(v));
7 fun Sum Values (x: string):int= SumNext(explode(x));
8 fun processData()=
9 (let val infile = open- in ("data .sml");
10 val count = digit (in(infile,1))
11 in
12 pint (Sum Values(input(infile,count)))
13 end
14 print("/n'));
15 %editor data.sml
16 41234
17 %sml
18 - use " prog.sml";
19 [opening prog .sml]
20 val digit =ft : string -> int
21 val SumNex = ft : string L.st -> int
22 val sumvaluse = ft . string -> int
23 val processdata = ft : unit -> unit
24 val it = ( ) : unit
25 - processData );
26 1234
27 sum = 10
28 val it = ( ) : unit
خط های 14-1این ویرایشگر فراخوانی می شود تا برنامه را ایجاد نماید.
می توانست مستقیماً در MLتایپ شود به جای این که توسط دستور Useدر خط 18 اضافه گردد.
خط2.توابع باید قبل از استفاده اعلان شوند.digitرشته یک کاراکتری را به عنوان نشانوند دریافت می کند،مقداری صحیح رابر می گرداند،و همانگونه که در مثال cقبلی بخش5-1ارائه شد کاراکتررا به عدد صحیح تبدیل
می کند."1"یکی بیش از "o"،"2"دو واحد بیش تر از "o"و به همین ترتیبordمقدار صحیح اولین کاراکتر نشانوند رشته ای را بر می گرداند.
خط 3.توضیحی در MLاست.
شامل 30 صفحه فایل WORD قابل ویرایش
دانلود مقاله برنامه نویسی ML