examples/list.vx

   1 /*translation of the list test from The Great Computer Language Shootout \r
   2 */\r
   3 \r
   4 function compare_arr(a1,a2)\r
   5 {\r
   6         foreach(i,val in a1)\r
   7                 if(val!=a2[i])return null;\r
   8         return 1;       \r
   9 }\r
  10 \r
  11 function test()\r
  12 {\r
  13         local size=10000\r
  14         local l1=[]; l1.resize(size);\r
  15         for(local i=0;i<size;i+=1) l1[i]=i;\r
  16         local l2=clone l1;\r
  17         local l3=[]\r
  18         \r
  19         l2.reverse();\r
  20         while(l2.len()>0)\r
  21                 l3.append(l2.pop());\r
  22         while(l3.len()>0)\r
  23                 l2.append(l3.pop());\r
  24         l1.reverse();\r
  25         \r
  26         if(compare_arr(l1,l2))\r
  27                 return l1.len();\r
  28         return null;\r
  29 }\r
  30 \r
  31 local n = vargv.len()!=0?vargv[0].tointeger():1\r
  32 for(local i=0;i<n;i+=1)\r
  33         if(!test())\r
  34         {\r
  35                 print("failed");\r
  36                 return;\r
  37         }\r
  38         \r
  39 print("oki doki");\r
  40