**TI86** " KRUSKAL0dimL L3Ö0dimL L4Ö0dimL L5Ödim BL1Ösum seq(B(1,J),J,1,L1(2))LÖ1KÖFor(J,1,L1(2))ÖFor(I,1,B(1,J))ÖA(I,J)L3(K)Ö1+KKÖEnd:EndÖsortA L3L3ÖL3L6:L3(1)-1L3(L+1)Ö1Q:1IÖLbl AÖWhile I