Write LISP & C Program for bubble sort ....See the difference ????

; Program by Arun Anoop M

; Asst.Professor,CSE.


(defun  bubble nil

(format  t   "Enter your number n :")

(setf   n(read))

(setf  i 0)


(format  t  "Enter array elements : ")

(setf  a(make-array  n))

(dotimes  (i  n)

   (setf  (aref  a  i) (read)
)

(print  a)

  (sort1  a  n)
  (print  "Sorted vector is :")
  (print  a)

(defun  sort1 (a  n)

  (setf   j(i+1))

  (dotimes  (i  n )

     (dotimes  (j  n )

(cond (( < (aref  a  i) (aref  a  j))

     (setf   temp (aref  a  i))

     (setf  (aref  a  i) (aref  a j))

     (setf  (aref  a  j) (temp))
)

)

)

)


--------------------------------------------------------------------------------------------


#include<stdio.h>

void main()
{
       int i,j,n,temp;
       int A[50];
       clrscr();
       printf("Enter the no. of element::");
       scanf("%d",&n);

       printf("Enter elements in array\n");

       for(i=0;i<n;i++)
       {
              printf("element %d is : ",i+1);
              scanf("%d",&A[i]);
       }

       printf("\nElements enter by you is::\n");
       for(i=0;i<n;i++)
       {
              printf("%d\t",A[i]);
       }

       for(i=0;i<n;i++)
       {
              for(j=i+1;j<n;j++)
              {
                     if(A[i]>A[j])
                     {
                            temp=A[i];
                            A[i]=A[j];
                            A[j]=temp;
                     }
              }
       }
           
       printf("\nelements sorted in asending order\n");
       for(i=0;i<n;i++)
       {
              printf("%d\t",A[i]);
       }

       getch();

}