Jsun Yui Wong
The computer program listed below seeks to solve the 30-department problem in Nugent, Vollmann, and Ruml (1968).
0 DEFSNG A-Z
3 DEFINT I,J,K
4 DIM X(466),A(466),L(466),K(466),P(466),B(466),S(466)
5 FOR JJJJ=-32000 TO 32000
14 RANDOMIZE JJJJ
16 M=-1D+17
51 A(1)=0:A(31)=0
52 A(2)=1:A(32)=0
53 A(3)=2:A(33)=0
54 A(4)=3:A(34)=0
55 A(5)=4:A(35)=0
56 A(6)=5:A(36)=0
57 A(7)=0:A(37)=1
58 A(8)=1:A(38)=1
59 A(9)=2:A(39)=1
60 A(10)=3:A(40)=1
61 A(11)=4:A(41)=1
62 A(12)=5:A(42)=1
63 A(13)=0:A(43)=2
64 A(14)=1:A(44)=2
65 A(15)=2:A(45)=2
66 A(16)=3:A(46)=2
67 A(17)=4:A(47)=2
68 A(18)=5:A(48)=2
69 A(19)=0:A(49)=3
70 A(20)=1:A(50)=3
71 A(21)=2:A(51)=3
72 A(22)=3:A(52)=3
73 A(23)=4:A(53)=3
74 A(24)=5:A(54)=3
75 A(25)=0:A(55)=4
76 A(26)=1:A(56)=4
77 A(27)=2:A(57)=4
78 A(28)=3:A(58)=4
79 A(29)=4:A(59)=4
80 A(30)=5:A(60)=4
126 IMAR=10+FIX(RND*5000)
128 FOR I=1 TO IMAR
129 FOR KK=1 TO 60
131 X(KK)=A(KK)
132 NEXT KK
330 IJM=1+FIX(RND*30)
331 IJN=1+FIX(RND*30)
333 X(IJM)=A(IJN):X(IJN)=A(IJM)
335 X(IJM+30)=A(IJN+30):X(IJN+30)=A(IJM+30)
501 B(1)=ABS(X(1)-X(2))+ABS(X(31)-X(32))
502 B(2)=ABS(X(1)-X(3))+ABS(X(31)-X(33))
503 B(3)=ABS(X(1)-X(4))+ABS(X(31)-X(34))
504 B(4)=ABS(X(1)-X(5))+ABS(X(31)-X(35))
505 B(5)=ABS(X(1)-X(6))+ABS(X(31)-X(36))
506 B(6)=ABS(X(1)-X(7))+ABS(X(31)-X(37))
507 B(7)=ABS(X(1)-X(8))+ABS(X(31)-X(38))
508 B(8)=ABS(X(1)-X(9))+ABS(X(31)-X(39))
509 B(9)=ABS(X(1)-X(10))+ABS(X(31)-X(40))
510 B(10)=ABS(X(1)-X(11))+ABS(X(31)-X(41))
511 B(11)=ABS(X(1)-X(12))+ABS(X(31)-X(42))
512 B(12)=ABS(X(1)-X(13))+ABS(X(31)-X(43))
513 B(13)=ABS(X(1)-X(14))+ABS(X(31)-X(44))
514 B(14)=ABS(X(1)-X(15))+ABS(X(31)-X(45))
515 B(15)=ABS(X(1)-X(16))+ABS(X(31)-X(46))
516 B(16)=ABS(X(1)-X(17))+ABS(X(31)-X(47))
517 B(17)=ABS(X(1)-X(18))+ABS(X(31)-X(48))
518 B(18)=ABS(X(1)-X(19))+ABS(X(31)-X(49))
519 B(19)=ABS(X(1)-X(20))+ABS(X(31)-X(50))
520 B(20)=ABS(X(1)-X(21))+ABS(X(31)-X(51))
521 B(21)=ABS(X(1)-X(22))+ABS(X(31)-X(52))
522 B(22)=ABS(X(1)-X(23))+ABS(X(31)-X(53))
523 B(23)=ABS(X(1)-X(24))+ABS(X(31)-X(54))
524 B(24)=ABS(X(1)-X(25))+ABS(X(31)-X(55))
525 B(25)=ABS(X(1)-X(26))+ABS(X(31)-X(56))
526 B(26)=ABS(X(1)-X(27))+ABS(X(31)-X(57))
527 B(27)=ABS(X(1)-X(28))+ABS(X(31)-X(58))
528 B(28)=ABS(X(1)-X(29))+ABS(X(31)-X(59))
529 B(29)=ABS(X(1)-X(30))+ABS(X(31)-X(60))
530 B(30)=ABS(X(2)-X(3))+ABS(X(32)-X(33))
531 B(31)=ABS(X(2)-X(4))+ABS(X(32)-X(34))
532 B(32)=ABS(X(2)-X(5))+ABS(X(32)-X(35))
533 B(33)=ABS(X(2)-X(6))+ABS(X(32)-X(36))
534 B(34)=ABS(X(2)-X(7))+ABS(X(32)-X(37))
535 B(35)=ABS(X(2)-X(8))+ABS(X(32)-X(38))
536 B(36)=ABS(X(2)-X(9))+ABS(X(32)-X(39))
537 B(37)=ABS(X(2)-X(10))+ABS(X(32)-X(40))
538 B(38)=ABS(X(2)-X(11))+ABS(X(32)-X(41))
539 B(39)=ABS(X(2)-X(12))+ABS(X(32)-X(42))
540 B(40)=ABS(X(2)-X(13))+ABS(X(32)-X(43))
541 B(41)=ABS(X(2)-X(14))+ABS(X(32)-X(44))
542 B(42)=ABS(X(2)-X(15))+ABS(X(32)-X(45))
543 B(43)=ABS(X(2)-X(16))+ABS(X(32)-X(46))
544 B(44)=ABS(X(2)-X(17))+ABS(X(32)-X(47))
545 B(45)=ABS(X(2)-X(18))+ABS(X(32)-X(48))
546 B(46)=ABS(X(2)-X(19))+ABS(X(32)-X(49))
547 B(47)=ABS(X(2)-X(20))+ABS(X(32)-X(50))
548 B(48)=ABS(X(2)-X(21))+ABS(X(32)-X(51))
549 B(49)=ABS(X(2)-X(22))+ABS(X(32)-X(52))
550 B(50)=ABS(X(2)-X(23))+ABS(X(32)-X(53))
551 B(51)=ABS(X(2)-X(24))+ABS(X(32)-X(54))
552 B(52)=ABS(X(2)-X(25))+ABS(X(32)-X(55))
553 B(53)=ABS(X(2)-X(26))+ABS(X(32)-X(56))
554 B(54)=ABS(X(2)-X(27))+ABS(X(32)-X(57))
555 B(55)=ABS(X(2)-X(28))+ABS(X(32)-X(58))
556 B(56)=ABS(X(2)-X(29))+ABS(X(32)-X(59))
557 B(57)=ABS(X(2)-X(30))+ABS(X(32)-X(60))
558 B(58)=ABS(X(3)-X(4))+ABS(X(33)-X(34))
559 B(59)=ABS(X(3)-X(5))+ABS(X(33)-X(35))
560 B(60)=ABS(X(3)-X(6))+ABS(X(33)-X(36))
561 B(61)=ABS(X(3)-X(7))+ABS(X(33)-X(37))
562 B(62)=ABS(X(3)-X(8))+ABS(X(33)-X(38))
563 B(63)=ABS(X(3)-X(9))+ABS(X(33)-X(39))
564 B(64)=ABS(X(3)-X(10))+ABS(X(33)-X(40))
565 B(65)=ABS(X(3)-X(11))+ABS(X(33)-X(41))
566 B(66)=ABS(X(3)-X(12))+ABS(X(33)-X(42))
567 B(67)=ABS(X(3)-X(13))+ABS(X(33)-X(43))
568 B(68)=ABS(X(3)-X(14))+ABS(X(33)-X(44))
569 B(69)=ABS(X(3)-X(15))+ABS(X(33)-X(45))
570 B(70)=ABS(X(3)-X(16))+ABS(X(33)-X(46))
571 B(71)=ABS(X(3)-X(17))+ABS(X(33)-X(47))
572 B(72)=ABS(X(3)-X(18))+ABS(X(33)-X(48))
573 B(73)=ABS(X(3)-X(19))+ABS(X(33)-X(49))
574 B(74)=ABS(X(3)-X(20))+ABS(X(33)-X(50))
575 B(75)=ABS(X(3)-X(21))+ABS(X(33)-X(51))
576 B(76)=ABS(X(3)-X(22))+ABS(X(33)-X(52))
577 B(77)=ABS(X(3)-X(23))+ABS(X(33)-X(53))
578 B(78)=ABS(X(3)-X(24))+ABS(X(33)-X(54))
579 B(79)=ABS(X(3)-X(25))+ABS(X(33)-X(55))
580 B(80)=ABS(X(3)-X(26))+ABS(X(33)-X(56))
581 B(81)=ABS(X(3)-X(27))+ABS(X(33)-X(57))
582 B(82)=ABS(X(3)-X(28))+ABS(X(33)-X(58))
583 B(83)=ABS(X(3)-X(29))+ABS(X(33)-X(59))
584 B(84)=ABS(X(3)-X(30))+ABS(X(33)-X(60))
585 B(85)=ABS(X(4)-X(5))+ABS(X(34)-X(35))
586 B(86)=ABS(X(4)-X(6))+ABS(X(34)-X(36))
587 B(87)=ABS(X(4)-X(7))+ABS(X(34)-X(37))
588 B(88)=ABS(X(4)-X(8))+ABS(X(34)-X(38))
589 B(89)=ABS(X(4)-X(9))+ABS(X(34)-X(39))
590 B(90)=ABS(X(4)-X(10))+ABS(X(34)-X(40))
591 B(91)=ABS(X(4)-X(11))+ABS(X(34)-X(41))
592 B(92)=ABS(X(4)-X(12))+ABS(X(34)-X(42))
593 B(93)=ABS(X(4)-X(13))+ABS(X(34)-X(43))
594 B(94)=ABS(X(4)-X(14))+ABS(X(34)-X(44))
595 B(95)=ABS(X(4)-X(15))+ABS(X(34)-X(45))
596 B(96)=ABS(X(4)-X(16))+ABS(X(34)-X(46))
597 B(97)=ABS(X(4)-X(17))+ABS(X(34)-X(47))
598 B(98)=ABS(X(4)-X(18))+ABS(X(34)-X(48))
599 B(99)=ABS(X(4)-X(19))+ABS(X(34)-X(49))
600 B(100)=ABS(X(4)-X(20))+ABS(X(34)-X(50))
601 B(101)=ABS(X(4)-X(21))+ABS(X(34)-X(51))
602 B(102)=ABS(X(4)-X(22))+ABS(X(34)-X(52))
603 B(103)=ABS(X(4)-X(23))+ABS(X(34)-X(53))
604 B(104)=ABS(X(4)-X(24))+ABS(X(34)-X(54))
605 B(105)=ABS(X(4)-X(25))+ABS(X(34)-X(55))
606 B(106)=ABS(X(4)-X(26))+ABS(X(34)-X(56))
607 B(107)=ABS(X(4)-X(27))+ABS(X(34)-X(57))
608 B(108)=ABS(X(4)-X(28))+ABS(X(34)-X(58))
609 B(109)=ABS(X(4)-X(29))+ABS(X(34)-X(59))
610 B(110)=ABS(X(4)-X(30))+ABS(X(34)-X(60))
611 B(111)=ABS(X(5)-X(6))+ABS(X(35)-X(36))
612 B(112)=ABS(X(5)-X(7))+ABS(X(35)-X(37))
613 B(113)=ABS(X(5)-X(8))+ABS(X(35)-X(38))
614 B(114)=ABS(X(5)-X(9))+ABS(X(35)-X(39))
615 B(115)=ABS(X(5)-X(10))+ABS(X(35)-X(40))
616 B(116)=ABS(X(5)-X(11))+ABS(X(35)-X(41))
617 B(117)=ABS(X(5)-X(12))+ABS(X(35)-X(42))
618 B(118)=ABS(X(5)-X(13))+ABS(X(35)-X(43))
619 B(119)=ABS(X(5)-X(14))+ABS(X(35)-X(44))
620 B(120)=ABS(X(5)-X(15))+ABS(X(35)-X(45))
621 B(121)=ABS(X(5)-X(16))+ABS(X(35)-X(46))
622 B(122)=ABS(X(5)-X(17))+ABS(X(35)-X(47))
623 B(123)=ABS(X(5)-X(18))+ABS(X(35)-X(48))
624 B(124)=ABS(X(5)-X(19))+ABS(X(35)-X(49))
625 B(125)=ABS(X(5)-X(20))+ABS(X(35)-X(50))
626 B(126)=ABS(X(5)-X(21))+ABS(X(35)-X(51))
627 B(127)=ABS(X(5)-X(22))+ABS(X(35)-X(52))
628 B(128)=ABS(X(5)-X(23))+ABS(X(35)-X(53))
629 B(129)=ABS(X(5)-X(24))+ABS(X(35)-X(54))
630 B(130)=ABS(X(5)-X(25))+ABS(X(35)-X(55))
631 B(131)=ABS(X(5)-X(26))+ABS(X(35)-X(56))
632 B(132)=ABS(X(5)-X(27))+ABS(X(35)-X(57))
633 B(133)=ABS(X(5)-X(28))+ABS(X(35)-X(58))
634 B(134)=ABS(X(5)-X(29))+ABS(X(35)-X(59))
635 B(135)=ABS(X(5)-X(30))+ABS(X(35)-X(60))
636 B(136)=ABS(X(6)-X(7))+ABS(X(36)-X(37))
637 B(137)=ABS(X(6)-X(8))+ABS(X(36)-X(38))
638 B(138)=ABS(X(6)-X(9))+ABS(X(36)-X(39))
639 B(139)=ABS(X(6)-X(10))+ABS(X(36)-X(40))
640 B(140)=ABS(X(6)-X(11))+ABS(X(36)-X(41))
641 B(141)=ABS(X(6)-X(12))+ABS(X(36)-X(42))
642 B(142)=ABS(X(6)-X(13))+ABS(X(36)-X(43))
643 B(143)=ABS(X(6)-X(14))+ABS(X(36)-X(44))
644 B(144)=ABS(X(6)-X(15))+ABS(X(36)-X(45))
645 B(145)=ABS(X(6)-X(16))+ABS(X(36)-X(46))
646 B(146)=ABS(X(6)-X(17))+ABS(X(36)-X(47))
647 B(147)=ABS(X(6)-X(18))+ABS(X(36)-X(48))
648 B(148)=ABS(X(6)-X(19))+ABS(X(36)-X(49))
649 B(149)=ABS(X(6)-X(20))+ABS(X(36)-X(50))
650 B(150)=ABS(X(6)-X(21))+ABS(X(36)-X(51))
651 B(151)=ABS(X(6)-X(22))+ABS(X(36)-X(52))
652 B(152)=ABS(X(6)-X(23))+ABS(X(36)-X(53))
653 B(153)=ABS(X(6)-X(24))+ABS(X(36)-X(54))
654 B(154)=ABS(X(6)-X(25))+ABS(X(36)-X(55))
655 B(155)=ABS(X(6)-X(26))+ABS(X(36)-X(56))
656 B(156)=ABS(X(6)-X(27))+ABS(X(36)-X(57))
657 B(157)=ABS(X(6)-X(28))+ABS(X(36)-X(58))
658 B(158)=ABS(X(6)-X(29))+ABS(X(36)-X(59))
659 B(159)=ABS(X(6)-X(30))+ABS(X(36)-X(60))
660 B(160)=ABS(X(7)-X(8))+ABS(X(37)-X(38))
661 B(161)=ABS(X(7)-X(9))+ABS(X(37)-X(39))
662 B(162)=ABS(X(7)-X(10))+ABS(X(37)-X(40))
663 B(163)=ABS(X(7)-X(11))+ABS(X(37)-X(41))
664 B(164)=ABS(X(7)-X(12))+ABS(X(37)-X(42))
665 B(165)=ABS(X(7)-X(13))+ABS(X(37)-X(43))
666 B(166)=ABS(X(7)-X(14))+ABS(X(37)-X(44))
667 B(167)=ABS(X(7)-X(15))+ABS(X(37)-X(45))
668 B(168)=ABS(X(7)-X(16))+ABS(X(37)-X(46))
669 B(169)=ABS(X(7)-X(17))+ABS(X(37)-X(47))
670 B(170)=ABS(X(7)-X(18))+ABS(X(37)-X(48))
671 B(171)=ABS(X(7)-X(19))+ABS(X(37)-X(49))
672 B(172)=ABS(X(7)-X(20))+ABS(X(37)-X(50))
673 B(173)=ABS(X(7)-X(21))+ABS(X(37)-X(51))
674 B(174)=ABS(X(7)-X(22))+ABS(X(37)-X(52))
675 B(175)=ABS(X(7)-X(23))+ABS(X(37)-X(53))
676 B(176)=ABS(X(7)-X(24))+ABS(X(37)-X(54))
677 B(177)=ABS(X(7)-X(25))+ABS(X(37)-X(55))
678 B(178)=ABS(X(7)-X(26))+ABS(X(37)-X(56))
679 B(179)=ABS(X(7)-X(27))+ABS(X(37)-X(57))
680 B(180)=ABS(X(7)-X(28))+ABS(X(37)-X(58))
681 B(181)=ABS(X(7)-X(29))+ABS(X(37)-X(59))
682 B(182)=ABS(X(7)-X(30))+ABS(X(37)-X(60))
683 B(183)=ABS(X(8)-X(9))+ABS(X(38)-X(39))
684 B(184)=ABS(X(8)-X(10))+ABS(X(38)-X(40))
685 B(185)=ABS(X(8)-X(11))+ABS(X(38)-X(41))
686 B(186)=ABS(X(8)-X(12))+ABS(X(38)-X(42))
687 B(187)=ABS(X(8)-X(13))+ABS(X(38)-X(43))
688 B(188)=ABS(X(8)-X(14))+ABS(X(38)-X(44))
689 B(189)=ABS(X(8)-X(15))+ABS(X(38)-X(45))
690 B(190)=ABS(X(8)-X(16))+ABS(X(38)-X(46))
691 B(191)=ABS(X(8)-X(17))+ABS(X(38)-X(47))
692 B(192)=ABS(X(8)-X(18))+ABS(X(38)-X(48))
693 B(193)=ABS(X(8)-X(19))+ABS(X(38)-X(49))
694 B(194)=ABS(X(8)-X(20))+ABS(X(38)-X(50))
695 B(195)=ABS(X(8)-X(21))+ABS(X(38)-X(51))
696 B(196)=ABS(X(8)-X(22))+ABS(X(38)-X(52))
697 B(197)=ABS(X(8)-X(23))+ABS(X(38)-X(53))
698 B(198)=ABS(X(8)-X(24))+ABS(X(38)-X(54))
699 B(199)=ABS(X(8)-X(25))+ABS(X(38)-X(55))
700 B(200)=ABS(X(8)-X(26))+ABS(X(38)-X(56))
701 B(201)=ABS(X(8)-X(27))+ABS(X(38)-X(57))
702 B(202)=ABS(X(8)-X(28))+ABS(X(38)-X(58))
703 B(203)=ABS(X(8)-X(29))+ABS(X(38)-X(59))
704 B(204)=ABS(X(8)-X(30))+ABS(X(38)-X(60))
705 B(205)=ABS(X(9)-X(10))+ABS(X(39)-X(40))
706 B(206)=ABS(X(9)-X(11))+ABS(X(39)-X(41))
707 B(207)=ABS(X(9)-X(12))+ABS(X(39)-X(42))
708 B(208)=ABS(X(9)-X(13))+ABS(X(39)-X(43))
709 B(209)=ABS(X(9)-X(14))+ABS(X(39)-X(44))
710 B(210)=ABS(X(9)-X(15))+ABS(X(39)-X(45))
711 B(211)=ABS(X(9)-X(16))+ABS(X(39)-X(46))
712 B(212)=ABS(X(9)-X(17))+ABS(X(39)-X(47))
713 B(213)=ABS(X(9)-X(18))+ABS(X(39)-X(48))
714 B(214)=ABS(X(9)-X(19))+ABS(X(39)-X(49))
715 B(215)=ABS(X(9)-X(20))+ABS(X(39)-X(50))
716 B(216)=ABS(X(9)-X(21))+ABS(X(39)-X(51))
717 B(217)=ABS(X(9)-X(22))+ABS(X(39)-X(52))
718 B(218)=ABS(X(9)-X(23))+ABS(X(39)-X(53))
719 B(219)=ABS(X(9)-X(24))+ABS(X(39)-X(54))
720 B(220)=ABS(X(9)-X(25))+ABS(X(39)-X(55))
721 B(221)=ABS(X(9)-X(26))+ABS(X(39)-X(56))
722 B(222)=ABS(X(9)-X(27))+ABS(X(39)-X(57))
723 B(223)=ABS(X(9)-X(28))+ABS(X(39)-X(58))
724 B(224)=ABS(X(9)-X(29))+ABS(X(39)-X(59))
725 B(225)=ABS(X(9)-X(30))+ABS(X(39)-X(60))
726 B(226)=ABS(X(10)-X(11))+ABS(X(40)-X(41))
727 B(227)=ABS(X(10)-X(12))+ABS(X(40)-X(42))
728 B(228)=ABS(X(10)-X(13))+ABS(X(40)-X(43))
729 B(229)=ABS(X(10)-X(14))+ABS(X(40)-X(44))
730 B(230)=ABS(X(10)-X(15))+ABS(X(40)-X(45))
731 B(231)=ABS(X(10)-X(16))+ABS(X(40)-X(46))
732 B(232)=ABS(X(10)-X(17))+ABS(X(40)-X(47))
733 B(233)=ABS(X(10)-X(18))+ABS(X(40)-X(48))
734 B(234)=ABS(X(10)-X(19))+ABS(X(40)-X(49))
735 B(235)=ABS(X(10)-X(20))+ABS(X(40)-X(50))
736 B(236)=ABS(X(10)-X(21))+ABS(X(40)-X(51))
737 B(237)=ABS(X(10)-X(22))+ABS(X(40)-X(52))
738 B(238)=ABS(X(10)-X(23))+ABS(X(40)-X(53))
739 B(239)=ABS(X(10)-X(24))+ABS(X(40)-X(54))
740 B(240)=ABS(X(10)-X(25))+ABS(X(40)-X(55))
741 B(241)=ABS(X(10)-X(26))+ABS(X(40)-X(56))
742 B(242)=ABS(X(10)-X(27))+ABS(X(40)-X(57))
743 B(243)=ABS(X(10)-X(28))+ABS(X(40)-X(58))
744 B(244)=ABS(X(10)-X(29))+ABS(X(40)-X(59))
745 B(245)=ABS(X(10)-X(30))+ABS(X(40)-X(60))
746 B(246)=ABS(X(11)-X(12))+ABS(X(41)-X(42))
747 B(247)=ABS(X(11)-X(13))+ABS(X(41)-X(43))
748 B(248)=ABS(X(11)-X(14))+ABS(X(41)-X(44))
749 B(249)=ABS(X(11)-X(15))+ABS(X(41)-X(45))
750 B(250)=ABS(X(11)-X(16))+ABS(X(41)-X(46))
751 B(251)=ABS(X(11)-X(17))+ABS(X(41)-X(47))
752 B(252)=ABS(X(11)-X(18))+ABS(X(41)-X(48))
753 B(253)=ABS(X(11)-X(19))+ABS(X(41)-X(49))
754 B(254)=ABS(X(11)-X(20))+ABS(X(41)-X(50))
755 B(255)=ABS(X(11)-X(21))+ABS(X(41)-X(51))
756 B(256)=ABS(X(11)-X(22))+ABS(X(41)-X(52))
757 B(257)=ABS(X(11)-X(23))+ABS(X(41)-X(53))
758 B(258)=ABS(X(11)-X(24))+ABS(X(41)-X(54))
759 B(259)=ABS(X(11)-X(25))+ABS(X(41)-X(55))
760 B(260)=ABS(X(11)-X(26))+ABS(X(41)-X(56))
761 B(261)=ABS(X(11)-X(27))+ABS(X(41)-X(57))
762 B(262)=ABS(X(11)-X(28))+ABS(X(41)-X(58))
763 B(263)=ABS(X(11)-X(29))+ABS(X(41)-X(59))
764 B(264)=ABS(X(11)-X(30))+ABS(X(41)-X(60))
765 B(265)=ABS(X(12)-X(13))+ABS(X(42)-X(43))
766 B(266)=ABS(X(12)-X(14))+ABS(X(42)-X(44))
767 B(267)=ABS(X(12)-X(15))+ABS(X(42)-X(45))
768 B(268)=ABS(X(12)-X(16))+ABS(X(42)-X(46))
769 B(269)=ABS(X(12)-X(17))+ABS(X(42)-X(47))
770 B(270)=ABS(X(12)-X(18))+ABS(X(42)-X(48))
771 B(271)=ABS(X(12)-X(19))+ABS(X(42)-X(49))
772 B(272)=ABS(X(12)-X(20))+ABS(X(42)-X(50))
773 B(273)=ABS(X(12)-X(21))+ABS(X(42)-X(51))
774 B(274)=ABS(X(12)-X(22))+ABS(X(42)-X(52))
775 B(275)=ABS(X(12)-X(23))+ABS(X(42)-X(53))
776 B(276)=ABS(X(12)-X(24))+ABS(X(42)-X(54))
777 B(277)=ABS(X(12)-X(25))+ABS(X(42)-X(55))
778 B(278)=ABS(X(12)-X(26))+ABS(X(42)-X(56))
779 B(279)=ABS(X(12)-X(27))+ABS(X(42)-X(57))
780 B(280)=ABS(X(12)-X(28))+ABS(X(42)-X(58))
781 B(281)=ABS(X(12)-X(29))+ABS(X(42)-X(59))
782 B(282)=ABS(X(12)-X(30))+ABS(X(42)-X(60))
783 B(283)=ABS(X(13)-X(14))+ABS(X(43)-X(44))
784 B(284)=ABS(X(13)-X(15))+ABS(X(43)-X(45))
785 B(285)=ABS(X(13)-X(16))+ABS(X(43)-X(46))
786 B(286)=ABS(X(13)-X(17))+ABS(X(43)-X(47))
787 B(287)=ABS(X(13)-X(18))+ABS(X(43)-X(48))
788 B(288)=ABS(X(13)-X(19))+ABS(X(43)-X(49))
789 B(289)=ABS(X(13)-X(20))+ABS(X(43)-X(50))
790 B(290)=ABS(X(13)-X(21))+ABS(X(43)-X(51))
791 B(291)=ABS(X(13)-X(22))+ABS(X(43)-X(52))
792 B(292)=ABS(X(13)-X(23))+ABS(X(43)-X(53))
793 B(293)=ABS(X(13)-X(24))+ABS(X(43)-X(54))
794 B(294)=ABS(X(13)-X(25))+ABS(X(43)-X(55))
795 B(295)=ABS(X(13)-X(26))+ABS(X(43)-X(56))
796 B(296)=ABS(X(13)-X(27))+ABS(X(43)-X(57))
797 B(297)=ABS(X(13)-X(28))+ABS(X(43)-X(58))
798 B(298)=ABS(X(13)-X(29))+ABS(X(43)-X(59))
799 B(299)=ABS(X(13)-X(30))+ABS(X(43)-X(60))
800 B(300)=ABS(X(14)-X(15))+ABS(X(44)-X(45))
801 B(301)=ABS(X(14)-X(16))+ABS(X(44)-X(46))
802 B(302)=ABS(X(14)-X(17))+ABS(X(44)-X(47))
803 B(303)=ABS(X(14)-X(18))+ABS(X(44)-X(48))
804 B(304)=ABS(X(14)-X(19))+ABS(X(44)-X(49))
805 B(305)=ABS(X(14)-X(20))+ABS(X(44)-X(50))
806 B(306)=ABS(X(14)-X(21))+ABS(X(44)-X(51))
807 B(307)=ABS(X(14)-X(22))+ABS(X(44)-X(52))
808 B(308)=ABS(X(14)-X(23))+ABS(X(44)-X(53))
809 B(309)=ABS(X(14)-X(24))+ABS(X(44)-X(54))
810 B(310)=ABS(X(14)-X(25))+ABS(X(44)-X(55))
811 B(311)=ABS(X(14)-X(26))+ABS(X(44)-X(56))
812 B(312)=ABS(X(14)-X(27))+ABS(X(44)-X(57))
813 B(313)=ABS(X(14)-X(28))+ABS(X(44)-X(58))
814 B(314)=ABS(X(14)-X(29))+ABS(X(44)-X(59))
815 B(315)=ABS(X(14)-X(30))+ABS(X(44)-X(60))
816 B(316)=ABS(X(15)-X(16))+ABS(X(45)-X(46))
817 B(317)=ABS(X(15)-X(17))+ABS(X(45)-X(47))
818 B(318)=ABS(X(15)-X(18))+ABS(X(45)-X(48))
819 B(319)=ABS(X(15)-X(19))+ABS(X(45)-X(49))
820 B(320)=ABS(X(15)-X(20))+ABS(X(45)-X(50))
821 B(321)=ABS(X(15)-X(21))+ABS(X(45)-X(51))
822 B(322)=ABS(X(15)-X(22))+ABS(X(45)-X(52))
823 B(323)=ABS(X(15)-X(23))+ABS(X(45)-X(53))
824 B(324)=ABS(X(15)-X(24))+ABS(X(45)-X(54))
825 B(325)=ABS(X(15)-X(25))+ABS(X(45)-X(55))
826 B(326)=ABS(X(15)-X(26))+ABS(X(45)-X(56))
827 B(327)=ABS(X(15)-X(27))+ABS(X(45)-X(57))
828 B(328)=ABS(X(15)-X(28))+ABS(X(45)-X(58))
829 B(329)=ABS(X(15)-X(29))+ABS(X(45)-X(59))
830 B(330)=ABS(X(15)-X(30))+ABS(X(45)-X(60))
831 B(331)=ABS(X(16)-X(17))+ABS(X(46)-X(47))
832 B(332)=ABS(X(16)-X(18))+ABS(X(46)-X(48))
833 B(333)=ABS(X(16)-X(19))+ABS(X(46)-X(49))
834 B(334)=ABS(X(16)-X(20))+ABS(X(46)-X(50))
835 B(335)=ABS(X(16)-X(21))+ABS(X(46)-X(51))
836 B(336)=ABS(X(16)-X(22))+ABS(X(46)-X(52))
837 B(337)=ABS(X(16)-X(23))+ABS(X(46)-X(53))
838 B(338)=ABS(X(16)-X(24))+ABS(X(46)-X(54))
839 B(339)=ABS(X(16)-X(25))+ABS(X(46)-X(55))
840 B(340)=ABS(X(16)-X(26))+ABS(X(46)-X(56))
841 B(341)=ABS(X(16)-X(27))+ABS(X(46)-X(57))
842 B(342)=ABS(X(16)-X(28))+ABS(X(46)-X(58))
843 B(343)=ABS(X(16)-X(29))+ABS(X(46)-X(59))
844 B(344)=ABS(X(16)-X(30))+ABS(X(46)-X(60))
845 B(345)=ABS(X(17)-X(18))+ABS(X(47)-X(48))
846 B(346)=ABS(X(17)-X(19))+ABS(X(47)-X(49))
847 B(347)=ABS(X(17)-X(20))+ABS(X(47)-X(50))
848 B(348)=ABS(X(17)-X(21))+ABS(X(47)-X(51))
849 B(349)=ABS(X(17)-X(22))+ABS(X(47)-X(52))
850 B(350)=ABS(X(17)-X(23))+ABS(X(47)-X(53))
851 B(351)=ABS(X(17)-X(24))+ABS(X(47)-X(54))
852 B(352)=ABS(X(17)-X(25))+ABS(X(47)-X(55))
853 B(353)=ABS(X(17)-X(26))+ABS(X(47)-X(56))
854 B(354)=ABS(X(17)-X(27))+ABS(X(47)-X(57))
855 B(355)=ABS(X(17)-X(28))+ABS(X(47)-X(58))
856 B(356)=ABS(X(17)-X(29))+ABS(X(47)-X(59))
857 B(357)=ABS(X(17)-X(30))+ABS(X(47)-X(60))
858 B(358)=ABS(X(18)-X(19))+ABS(X(48)-X(49))
859 B(359)=ABS(X(18)-X(20))+ABS(X(48)-X(50))
860 B(360)=ABS(X(18)-X(21))+ABS(X(48)-X(51))
861 B(361)=ABS(X(18)-X(22))+ABS(X(48)-X(52))
862 B(362)=ABS(X(18)-X(23))+ABS(X(48)-X(53))
863 B(363)=ABS(X(18)-X(24))+ABS(X(48)-X(54))
864 B(364)=ABS(X(18)-X(25))+ABS(X(48)-X(55))
865 B(365)=ABS(X(18)-X(26))+ABS(X(48)-X(56))
866 B(366)=ABS(X(18)-X(27))+ABS(X(48)-X(57))
867 B(367)=ABS(X(18)-X(28))+ABS(X(48)-X(58))
868 B(368)=ABS(X(18)-X(29))+ABS(X(48)-X(59))
869 B(369)=ABS(X(18)-X(30))+ABS(X(48)-X(60))
870 B(370)=ABS(X(19)-X(20))+ABS(X(49)-X(50))
871 B(371)=ABS(X(19)-X(21))+ABS(X(49)-X(51))
872 B(372)=ABS(X(19)-X(22))+ABS(X(49)-X(52))
873 B(373)=ABS(X(19)-X(23))+ABS(X(49)-X(53))
874 B(374)=ABS(X(19)-X(24))+ABS(X(49)-X(54))
875 B(375)=ABS(X(19)-X(25))+ABS(X(49)-X(55))
876 B(376)=ABS(X(19)-X(26))+ABS(X(49)-X(56))
877 B(377)=ABS(X(19)-X(27))+ABS(X(49)-X(57))
878 B(378)=ABS(X(19)-X(28))+ABS(X(49)-X(58))
879 B(379)=ABS(X(19)-X(29))+ABS(X(49)-X(59))
880 B(380)=ABS(X(19)-X(30))+ABS(X(49)-X(60))
881 B(381)=ABS(X(20)-X(21))+ABS(X(50)-X(51))
882 B(382)=ABS(X(20)-X(22))+ABS(X(50)-X(52))
883 B(383)=ABS(X(20)-X(23))+ABS(X(50)-X(53))
884 B(384)=ABS(X(20)-X(24))+ABS(X(50)-X(54))
885 B(385)=ABS(X(20)-X(25))+ABS(X(50)-X(55))
886 B(386)=ABS(X(20)-X(26))+ABS(X(50)-X(56))
887 B(387)=ABS(X(20)-X(27))+ABS(X(50)-X(57))
888 B(388)=ABS(X(20)-X(28))+ABS(X(50)-X(58))
889 B(389)=ABS(X(20)-X(29))+ABS(X(50)-X(59))
890 B(390)=ABS(X(20)-X(30))+ABS(X(50)-X(60))
891 B(391)=ABS(X(21)-X(22))+ABS(X(51)-X(52))
892 B(392)=ABS(X(21)-X(23))+ABS(X(51)-X(53))
893 B(393)=ABS(X(21)-X(24))+ABS(X(51)-X(54))
894 B(394)=ABS(X(21)-X(25))+ABS(X(51)-X(55))
895 B(395)=ABS(X(21)-X(26))+ABS(X(51)-X(56))
896 B(396)=ABS(X(21)-X(27))+ABS(X(51)-X(57))
897 B(397)=ABS(X(21)-X(28))+ABS(X(51)-X(58))
898 B(398)=ABS(X(21)-X(29))+ABS(X(51)-X(59))
899 B(399)=ABS(X(21)-X(30))+ABS(X(51)-X(60))
900 B(400)=ABS(X(22)-X(23))+ABS(X(52)-X(53))
901 B(401)=ABS(X(22)-X(24))+ABS(X(52)-X(54))
902 B(402)=ABS(X(22)-X(25))+ABS(X(52)-X(55))
903 B(403)=ABS(X(22)-X(26))+ABS(X(52)-X(56))
904 B(404)=ABS(X(22)-X(27))+ABS(X(52)-X(57))
905 B(405)=ABS(X(22)-X(28))+ABS(X(52)-X(58))
906 B(406)=ABS(X(22)-X(29))+ABS(X(52)-X(59))
907 B(407)=ABS(X(22)-X(30))+ABS(X(52)-X(60))
908 B(408)=ABS(X(23)-X(24))+ABS(X(53)-X(54))
909 B(409)=ABS(X(23)-X(25))+ABS(X(53)-X(55))
910 B(410)=ABS(X(23)-X(26))+ABS(X(53)-X(56))
911 B(411)=ABS(X(23)-X(27))+ABS(X(53)-X(57))
912 B(412)=ABS(X(23)-X(28))+ABS(X(53)-X(58))
913 B(413)=ABS(X(23)-X(29))+ABS(X(53)-X(59))
914 B(414)=ABS(X(23)-X(30))+ABS(X(53)-X(60))
915 B(415)=ABS(X(24)-X(25))+ABS(X(54)-X(55))
916 B(416)=ABS(X(24)-X(26))+ABS(X(54)-X(56))
917 B(417)=ABS(X(24)-X(27))+ABS(X(54)-X(57))
918 B(418)=ABS(X(24)-X(28))+ABS(X(54)-X(58))
919 B(419)=ABS(X(24)-X(29))+ABS(X(54)-X(59))
920 B(420)=ABS(X(24)-X(30))+ABS(X(54)-X(60))
921 B(421)=ABS(X(25)-X(26))+ABS(X(55)-X(56))
922 B(422)=ABS(X(25)-X(27))+ABS(X(55)-X(57))
923 B(423)=ABS(X(25)-X(28))+ABS(X(55)-X(58))
924 B(424)=ABS(X(25)-X(29))+ABS(X(55)-X(59))
925 B(425)=ABS(X(25)-X(30))+ABS(X(55)-X(60))
926 B(426)=ABS(X(26)-X(27))+ABS(X(56)-X(57))
927 B(427)=ABS(X(26)-X(28))+ABS(X(56)-X(58))
928 B(428)=ABS(X(26)-X(29))+ABS(X(56)-X(59))
929 B(429)=ABS(X(26)-X(30))+ABS(X(56)-X(60))
930 B(430)=ABS(X(27)-X(28))+ABS(X(57)-X(58))
931 B(431)=ABS(X(27)-X(29))+ABS(X(57)-X(59))
932 B(432)=ABS(X(27)-X(30))+ABS(X(57)-X(60))
933 B(433)=ABS(X(28)-X(29))+ABS(X(58)-X(59))
934 B(434)=ABS(X(28)-X(30))+ABS(X(58)-X(60))
935 B(435)=ABS(X(29)-X(30))+ABS(X(59)-X(60))
1380 PH=-3*B(1)-2*B(2)-0*B(3)-0*B(4)-2*B(5)-10*B(6)-5*B(7)-0*B(8)-5*B(9)
1381 PI=-2*B(10)-5*B(11)-0*B(12)-0*B(13)-2*B(14)-0*B(15)-5*B(16)-6*B(17)-3*B(18)
1382 PJ=-0*B(19)-1*B(20)-10*B(21)-0*B(22)-10*B(23)-2*B(24)-1*B(25)-1*B(26)-1*B(27)
1383 PK=-0*B(28)-1*B(29)-4*B(30)-0*B(31)-10*B(32)-4*B(33)-0*B(34)-0*B(35)-2*B(36)
1384 PL=-2*B(37)-1*B(38)-0*B(39)-5*B(40)-0*B(41)-0*B(42)-0*B(43)-0*B(44)-2*B(45)
1385 PM=-0*B(46)-1*B(47)-6*B(48)-1*B(49)-0*B(50)-1*B(51)-2*B(52)-2*B(53)-5*B(54)
1386 PN=-1*B(55)-10*B(56)-5*B(57)-3*B(58)-4*B(59)-0*B(60)-5*B(61)-5*B(62)-5*B(63)
1387 PO=-1*B(64)-4*B(65)-1*B(66)
1388 PNA=-0*B(67)-4*B(68)-0*B(69)-4*B(70)-0*B(71)-6*B(72)-3*B(73)-2*B(74)-5*B(75)
1389 PNB=-5*B(76)-2*B(77)-1*B(78)-0*B(79)-0*B(80)-3*B(81)-1*B(82)-0*B(83)-2*B(84)
1390 PNC=-0*B(85)-0*B(86)-0*B(87)-2*B(88)-2*B(89)-0*B(90)-6*B(91)-0*B(92)-2*B(93)
1391 PND=-5*B(94)-2*B(95)-5*B(96)-1*B(97)-1*B(98)-1*B(99)-1*B(100)-2*B(101)-2*B(102)
1392 PNE=-4*B(103)-0*B(104)-2*B(105)-0*B(106)-2*B(107)-2*B(108)-5*B(109)-5*B(110)-5*B(111)
1393 PNF=-2*B(112)-0*B(113)-0*B(114)-0*B(115)-0*B(116)-2*B(117)-0*B(118)-0*B(119)-0*B(120)
1394 PNG=-0*B(121)-2*B(122)-1*B(123)-0*B(124)-0*B(125)-2*B(126)-0*B(127)-5*B(128)-1*B(129)
1395 PNH=-0*B(130)-2*B(131)-1*B(132)-0*B(133)-2*B(134)-1*B(135)-1*B(136)-2*B(137)-2*B(138)
1396 PNI=-1*B(139)-4*B(140)-10*B(141)-10*B(142)-2*B(143)-5*B(144)-5*B(145)-0*B(146)-5*B(147)
1397 PNJ=-0*B(148)-0*B(149)-0*B(150)-10*B(151)-0*B(152)-0*B(153)-0*B(154)-4*B(155)-0*B(156)
1398 PNK=-10*B(157)-1*B(158)-1*B(159)-10*B(160)-10*B(161)-5*B(162)-10*B(163)-10*B(164)-6*B(165)
1399 PNL=-0*B(166)-0*B(167)-10*B(168)-2*B(169)-1*B(170)-10*B(171)-1*B(172)-5*B(173)-5*B(174)
1400 PNM=-2*B(175)-3*B(176)-5*B(177)-0*B(178)-2*B(179)-0*B(180)-1*B(181)-3*B(182)-1*B(183)
1401 PNN=-3*B(184)-5*B(185)-0*B(186)-0*B(187)-0*B(188)-2*B(189)-4*B(190)-5*B(191)-2*B(192)
1402 PNO=-10*B(193)-6*B(194)-0*B(195)-5*B(196)-5*B(197)-2*B(198)-5*B(199)-0*B(200)-5*B(201)
1403 PNP=-5*B(202)-0*B(203)-2*B(204)-10*B(205)-2*B(206)-1*B(207)-5*B(208)-2*B(209)-0*B(210)
1404 PNQ=-3*B(211)-0*B(212)-2*B(213)-0*B(214)-0*B(215)-4*B(216)-0*B(217)-5*B(218)-2*B(219)
1405 PNR=-0*B(220)-5*B(221)-2*B(222)-2*B(223)-5*B(224)-2*B(225)-5*B(226)-5*B(227)-6*B(228)
1406 PNS=-0*B(229)-1*B(230)-5*B(231)-5*B(232)-0*B(233)-5*B(234)-2*B(235)-3*B(236)-5*B(237)
1407 PNT=-0*B(238)-5*B(239)-2*B(240)-10*B(241)-10*B(242)-1*B(243)-5*B(244)-2*B(245)-0*B(246)
1408 PNU=-0*B(247)-1*B(248)-2*B(249)-1*B(250)-0*B(251)-2*B(252)-0*B(253)-0*B(254)-0*B(255)
1409 PNV=-6*B(256)-6*B(257)-0*B(258)-4*B(259)-5*B(260)-3*B(261)-2*B(262)-2*B(263)-10*B(264)
1410 PNW=-5*B(265)-5*B(266)-2*B(267)-0*B(268)-0*B(269)-0*B(270)-0*B(271)-2*B(272)-0*B(273)
1411 PNX=-4*B(274)-5*B(275)-10*B(276)-1*B(277)-0*B(278)-0*B(279)-0*B(280)-0*B(281)-1*B(282)
1412 PNY=-2*B(283)-0*B(284)-4*B(285)-2*B(286)-2*B(287)-1*B(288)-0*B(289)-6*B(290)-2*B(291)
1413 PNZ=-1*B(292)-5*B(293)-5*B(294)-0*B(295)-0*B(296)-1*B(297)-5*B(298)-5*B(299)-2*B(300)
1414 PZA=-1*B(301)-0*B(302)-5*B(303)-3*B(304)-10*B(305)-0*B(306)-0*B(307)-4*B(308)-2*B(309)
1415 PZB=-0*B(310)-0*B(311)-4*B(312)-2*B(313)-5*B(314)-5*B(315)-4*B(316)-5*B(317)-1*B(318)
1416 PZC=-0*B(319)-1*B(320)-0*B(321)-5*B(322)-0*B(323)-2*B(324)-0*B(325)-0*B(326)-5*B(327)
1417 PZD=-1*B(328)-1*B(329)-0*B(330)-0*B(331)-3*B(332)-0*B(333)-2*B(334)-2*B(335)-0*B(336)
1418 PZE=-2*B(337)-0*B(338)-5*B(339)-0*B(340)-5*B(341)-2*B(342)-5*B(343)-10*B(344)-2*B(345)
1419 PZF=-2*B(346)-0*B(347)-0*B(348)-0*B(349)-6*B(350)-5*B(351)-3*B(352)-5*B(353)-0*B(354)
1420 PZG=-0*B(355)-5*B(356)-1*B(357)-5*B(358)-1*B(359)-2*B(360)-10*B(361)-10*B(362)-4*B(363)
1421 PZH=-0*B(364)-0*B(365)-5*B(366)-0*B(367)-0*B(368)-0*B(369)-0*B(370)-5*B(371)-5*B(372)
1422 PZI=-1*B(373)-0*B(374)-5*B(375)-2*B(376)-1*B(377)-2*B(378)-10*B(379)-10*B(380)-5*B(381)
1423 PZJ=-2*B(382)-1*B(383)-3*B(384)-1*B(385)-5*B(386)-6*B(387)-5*B(388)-5*B(389)-3*B(390)
1424 PZK=-4*B(391)-0*B(392)-1*B(393)-0*B(394)-0*B(395)-0*B(396)-5*B(397)-0*B(398)-0*B(399)
1425 PZL=-5*B(400)-0*B(401)-4*B(402)-4*B(403)-5*B(404)-0*B(405)-2*B(406)-5*B(407)-0*B(408)
1426 PZM=-4*B(409)-4*B(410)-1*B(411)-0*B(412)-2*B(413)-2*B(414)-5*B(415)-5*B(416)-0*B(417)
1427 PZN=-1*B(418)-0*B(419)-0*B(420)-1*B(421)-0*B(422)-10*B(423)-1*B(424)-0*B(425)-0*B(426)
1428 PZO=-0*B(427)-0*B(428)-0*B(429)-0*B(430)-0*B(431)-10*B(432)-2*B(433)-2*B(434)-2*B(435)
1431 PNSUM=PNA+PNB+PNC+PND+PNE+PNF+PNG+PNH+PNI+PNJ+PNK+PNL+PNM+PNN+PNO+PNP+PNQ+PNR+PNS+PNT+PNU+PNV+PNW+PNX+PNY+PNZ
1433 PZSUM=PZA+PZB+PZC+PZD+PZE+PZF+PZG+PZH+PZI+PZJ+PZK+PZL+PZM+PZN+PZO
1588 P=PH+PI+PJ+PK+PL+PM+PN+PO+PNSUM+PZSUM
1651 IF P<=M THEN 1670
1657 FOR KEW=1 TO 60
1658 A(KEW)=X(KEW)
1659 NEXT KEW
1661 M=P
1663 MM=PR
1666 GOTO 128
1670 NEXT I
1890 IF M>-3073 THEN 1912 ELSE 1999
1912 PRINT A(1),A(2),A(3),A(4),A(5)
1913 PRINT A(6),A(7),A(8),A(9),A(10)
1914 PRINT A(11),A(12),A(13),A(14),A(15)
1915 PRINT A(16),A(17),A(18),A(19),A(20)
1916 PRINT A(21),A(22),A(23),A(24),A(25)
1917 PRINT A(26),A(27),A(28),A(29),A(30)
1918 PRINT A(31),A(32),A(33),A(34),A(35)
1919 PRINT A(36),A(37),A(38),A(39),A(40)
1920 PRINT A(41),A(42),A(43),A(44),A(45)
1921 PRINT A(46),A(47),A(48),A(49),A(50)
1922 PRINT A(51),A(52),A(53),A(54),A(55)
1923 PRINT A(56),A(57),A(58),A(59),A(60)
1927 PRINT M,JJJJ
1999 NEXT JJJJ
This BASIC computer program was run with the IBM basica/D interpreter, and the output produced during the first 7.5 hours of running is presented below. (What immediately follows is a manual copy from the computer screen.)
4 1 2 0 5
3 2 3 2 3
3 4 2 1 5
2 5 4 1 0
0 4 5 4 0
5 3 0 1 1
2 0 4 3 0
0 2 2 1 1
3 0 0 4 4
3 2 4 2 4
0 3 3 1 2
1 4 1 1 3
-3062 -29395
4 1 2 1 5
3 2 3 2 3
3 4 2 0 5
2 5 4 1 0
0 4 5 4 0
5 3 0 1 1
2 0 4 4 0
0 2 2 1 1
3 0 0 4 4
3 2 4 2 3
0 3 3 1 2
1 4 1 1 3
-3065 -28145
Interpreted in accordance with line 1912 through line 1927, the output through JJJJ=-28145 was produced during the first 7.5 hours of running on a personal computer with an Intel 2.66 GHz. chip and the IBM basica/D interpreter.
References
Hillier, F. S. (1963), "Quantitative tools for plant layout analysis," J. Indust. Eng. 14, 33-40.
Nugent, C. E., Vollmann, T. E., and Ruml, J. (1968), "An experimental comparisons of techniques for the assignment of facilities to locations," Operations Research 16, 150-173.
Heragu, S. S., and Kusiak, A. (1991), "Efficient models for the facility layout problem," European Journal of Operational Research 53, 1-13.