From 79ca66eb673c710432d1f4e51af70730a09a82c8 Mon Sep 17 00:00:00 2001 From: rubidium Date: Fri, 19 Sep 2014 20:06:51 +0000 Subject: (svn r26853) -Cleanup [Squirrel]: remove some stuff that we never did and especially never should use --- src/3rdparty/squirrel/samples/matrix.nut | 44 -------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 src/3rdparty/squirrel/samples/matrix.nut (limited to 'src/3rdparty/squirrel/samples/matrix.nut') diff --git a/src/3rdparty/squirrel/samples/matrix.nut b/src/3rdparty/squirrel/samples/matrix.nut deleted file mode 100644 index c8b16c65a..000000000 --- a/src/3rdparty/squirrel/samples/matrix.nut +++ /dev/null @@ -1,44 +0,0 @@ -/* -* -* Original Javascript version by David Hedbor(http://www.bagley.org/~doug/shootout/) -* -*/ -local SIZE=30; - -function mkmatrix(rows, cols) { - local i, j, count = 1; - local m = []; m.resize(rows); - for (i = 0; i < rows; i+=1) { - m[i] = [];m[i].resize(cols) - for (j = 0; j < cols; j+=1) { - m[i][j] = count+=1; - } - } - return m; -} - -function mmult(rows, cols, m1, m2, m3) { - local i, j, k, val; - for (i = 0; i < rows; i+=1) { - for (j = 0; j < cols; j+=1) { - val = 0; - for (k = 0; k < cols; k+=1) { - val += m1[i][k] * m2[k][j]; - } - m3[i][j] = val; - } - } - return m3; -} - -local n = ARGS.len()!=0?ARGS[0].tointeger():1 - -local m1 = mkmatrix(SIZE, SIZE); -local m2 = mkmatrix(SIZE, SIZE); -local mm = mkmatrix(SIZE, SIZE); - -for (local i = 0; i < n; i+=1) { - mmult(SIZE, SIZE, m1, m2, mm); -} - -print(mm[0][0]+" "+mm[2][3]+" "+mm[3][2]+" "+mm[4][4]); -- cgit v1.2.3-54-g00ecf