سال روز وفات زنده یاد صادق هدایت بزرگترین نویسنده ایرانی را به همه تسلیت می گویم.

« دانشمند ، طبیعت را به خاطر فایده اش مطالعه نمی کند، آن را برای این مطالعه می کند که از آن لذت می برد و چون طبیعت زیباست از آن لذت می برد . اگر طبیعت زیبا نبود، ارزش ِ شناختن نداشت و اگر طبیعت ارزش شناختن نداشت، زندگی هم ارزش زیستن نداشت. البته، من در اینجا از آن گونه زیبایی که حواس را متأثر می کند، یعنی از زیبایی اوصاف و ظواهر، سخن نمی گویم؛ نه به این جهت که این زیبایی ها را دست کم بگیرم، نه چنین نیست، اما این زیبایی ربطی به علوم ندارد، منظورم زیبایی ژرف تری است که از نظم هماهنگ اجزا بوجود می آید و تنها هوش ِ ناب قادر به درک آن است. »

magic:=proc(A)
        local n, t,i;
        n:=op(2,op(2,eval(A))[1]);
        t:=add(A[1,j],j=1..n);
          for i from 1 to n do
              if evalf(add(A[i,j],j=1..n))<>t  then
                 error "not magic";
              fi;
          od;
           for i from 1 to n do
              if   evalf(add(A[j,i],j=1..n))<>t  then
                 error "not magic";
              fi;
          od;
             if add(A[i,i],i=1..n)<>t or add(A[n-(i-1),n-(i-1)],i=1..n)<>t then
                error "not magic";
             fi;
       print("is magic!!");
       end:

مثال :

SS := Array([[8, 1,6], [3, 5, 7], [4, 9, 2]]):
magic(SS);

با وجود اهميتي كه كاربرد رياضيات دارد اما اين كار نبايد ملاك ارزش گذاري آن باشد.