Posts

Showing posts with the label array handling

S) Reformat and normalize example -- Input : 1,2,3-7,8,9

Image
 Input : 1,2,3-7,8,9 Output : 1 2 3 4 5 6 7 8 9  Solution  let decimal ( 4)val 1 =0;   let decimal ( 4)val 2 =0;   let decimal ( 4)diff =0;     out:: reformat(in)=   begin   if ( string_index (in.id, "-" ))           begin           val1 = string_substring ( string_replace ( string_substring (in.id, 1,string _index(in.id, "-" )-1), "," , " " ),1,1);           val2= string_substring ( string_replace ( string_substring ( in.id,string_index (in.id, "-" )+ 1,string _length(in.id)), "," , "" ),3,1);           diff =(val2-val 1)+ 1;           end     else diff =1;     out.id : : if ( string_index (in.id, "-" )> 0) val 1  else in.id;     out.diff :: diff;     end ;   Normalize   out:: len...