
(/VERSIONCHECK 2) 

(DEFUN |FFSLPE;solveLinearPolynomialEquation;LFPPU;1| (|lp| |p| $)
  (PROG (|answer| #1=#:G1810 #2=#:G1819 |ans| |deg| #3=#:G1807 #4=#:G1806
         #5=#:G1808 #6=#:G1833 |u|)
    (RETURN
     (SEQ
      (COND
       ((NULL (SPADCALL (QREFELT $ 9) |lp| (QREFELT $ 18)))
        (SEQ
         (LETT |deg|
               (PROGN
                (LETT #3# NIL
                      . #7=(|FFSLPE;solveLinearPolynomialEquation;LFPPU;1|))
                (SEQ (LETT |u| NIL . #7#) (LETT #6# |lp| . #7#) G190
                     (COND
                      ((OR (ATOM #6#) (PROGN (LETT |u| (CAR #6#) . #7#) NIL))
                       #8=(GO G191)))
                     (SEQ
                      (EXIT
                       (PROGN
                        (LETT #5# (SPADCALL |u| (QREFELT $ 19)) . #7#)
                        (COND (#3# (LETT #4# (+ #4# #5#) . #7#))
                              ('T
                               (PROGN
                                (LETT #4# #5# . #7#)
                                (LETT #3# 'T . #7#)))))))
                     (LETT #6# (CDR #6#) . #7#) #9=(GO G190) G191 (EXIT NIL))
                (COND (#3# #4#) ('T 0)))
               . #7#)
         (LETT |ans| (CONS 1 "failed") . #7#)
         (SETELT $ 14
                 (SPADCALL (SPADCALL (|spadConstant| $ 10) 1 (QREFELT $ 13))
                           (SPADCALL (|spadConstant| $ 10) 0 (QREFELT $ 13))
                           (QREFELT $ 20)))
         (SEQ G190 (COND ((NULL (QEQCAR |ans| 1)) #8#))
              (SEQ
               (LETT |ans| (SPADCALL |deg| (QREFELT $ 14) |lp| (QREFELT $ 23))
                     . #7#)
               (EXIT
                (COND
                 ((QEQCAR |ans| 1)
                  (SEQ
                   (SETELT $ 14
                           (PROG2
                               (LETT #2#
                                     (SPADCALL (QREFELT $ 14) (QREFELT $ 25))
                                     . #7#)
                               (QCDR #2#)
                             (|check-union| (QEQCAR #2# 0) (QREFELT $ 7) #2#)))
                   (EXIT
                    (SEQ G190
                         (COND
                          ((NULL
                            (COND
                             ((< 1 (SPADCALL (QREFELT $ 14) (QREFELT $ 27)))
                              (COND
                               ((SPADCALL (QREFELT $ 14) (QREFELT $ 29)) 'NIL)
                               ('T 'T)))
                             ('T 'NIL)))
                           #8#))
                         (SEQ
                          (EXIT
                           (SETELT $ 14
                                   (PROG2
                                       (LETT #2#
                                             (SPADCALL (QREFELT $ 14)
                                                       (QREFELT $ 25))
                                             . #7#)
                                       (QCDR #2#)
                                     (|check-union| (QEQCAR #2# 0)
                                                    (QREFELT $ 7) #2#)))))
                         NIL #9# G191 (EXIT NIL))))))))
              NIL #9# G191 (EXIT NIL))
         (EXIT
          (SETELT $ 15
                  (PROG2
                      (LETT #1# |ans| . #7#)
                      (QCDR #1#)
                    (|check-union| (QEQCAR #1# 0)
                                   (|Vector| (|List| (QREFELT $ 8))) #1#)))))))
      (LETT |answer|
            (SPADCALL |p| (QREFELT $ 14) (QREFELT $ 15) (QREFELT $ 32)) . #7#)
      (EXIT |answer|))))) 

(DEFUN |FiniteFieldSolveLinearPolynomialEquation| (&REST #1=#:G1834)
  (PROG ()
    (RETURN
     (PROG (#2=#:G1835)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (|devaluateList| #1#)
                                           (HGET |$ConstructorCache|
                                                 '|FiniteFieldSolveLinearPolynomialEquation|)
                                           '|domainEqualList|)
                . #3=(|FiniteFieldSolveLinearPolynomialEquation|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (APPLY
                   (|function| |FiniteFieldSolveLinearPolynomialEquation;|)
                   #1#)
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|FiniteFieldSolveLinearPolynomialEquation|))))))))))) 

(DEFUN |FiniteFieldSolveLinearPolynomialEquation;| (|#1| |#2| |#3|)
  (PROG (|pv$| $ |dv$| DV$3 DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|)
            . #1=(|FiniteFieldSolveLinearPolynomialEquation|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT DV$3 (|devaluate| |#3|) . #1#)
      (LETT |dv$|
            (LIST '|FiniteFieldSolveLinearPolynomialEquation| DV$1 DV$2 DV$3)
            . #1#)
      (LETT $ (GETREFV 34) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache|
                  '|FiniteFieldSolveLinearPolynomialEquation|
                  (LIST DV$1 DV$2 DV$3) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 |#3|)
      (QSETREFV $ 9 NIL)
      (QSETREFV $ 14 (SPADCALL (|spadConstant| $ 10) 1 (QREFELT $ 13)))
      (QSETREFV $ 15 #())
      $)))) 

(MAKEPROP '|FiniteFieldSolveLinearPolynomialEquation| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|local| |#3|) '|oldlp| (0 . |One|) (4 . |One|)
              (|NonNegativeInteger|) (8 . |monomial|) '|slpePrime| '|oldtable|
              (|Boolean|) (|List| 8) (14 . =) (20 . |degree|) (25 . +)
              (|Union| 31 '"failed") (|GenExEuclid| 7 8) (31 . |tablePow|)
              (|Union| $ '"failed") (38 . |nextItem|) (43 . |One|)
              (47 . |degree|) (|DistinctDegreeFactorize| 6 7)
              (52 . |irreducible?|) (|Union| 17 '"failed") (|Vector| 17)
              (57 . |solveid|) |FFSLPE;solveLinearPolynomialEquation;LFPPU;1|)
           '#(|solveLinearPolynomialEquation| 64) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 33
                                                 '(0 6 0 10 0 7 0 11 2 7 0 6 12
                                                   13 2 17 16 0 0 18 1 8 12 0
                                                   19 2 7 0 0 0 20 3 22 21 12 7
                                                   17 23 1 7 24 0 25 0 8 0 26 1
                                                   7 12 0 27 1 28 16 7 29 3 22
                                                   30 8 7 31 32 2 0 30 17 8
                                                   33)))))
           '|lookupComplete|)) 
