Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /tests/trunk/bugs/tests.obsolete/bug1463.1.sml
ViewVC logotype

Annotation of /tests/trunk/bugs/tests.obsolete/bug1463.1.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1463.1.sml *)
2 :    
3 :     val x = Array2.tabulate Array2.RowMajor (2,3,fn (r,c) => 10 * r + c);
4 :    
5 :     Array2.row(x,0); (* --> val it = #[0,1] : int vector (* Nope! *) *)
6 :     Array2.row(x,1); (* --> val it = #[10,11] : int vector (* ditto *) *)
7 :    
8 :     (* these are okay *)
9 :     Array2.column(x,0); (* --> val it = #[0,10] : int vector *)
10 :     Array2.column(x,1); (* --> val it = #[1,11] : int vector *)
11 :     Array2.column(x,2); (* --> val it = #[2,12] : int vector *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0