OK, got it!  Thank you!

BOOT> (setf l '((1 . 1) (2 . 1) (3 . 1) (4 . 1) (5 . 1)))

((1 . 1) (2 . 1) (3 . 1) (4 . 1) (5 . 1))
BOOT> (setf g (|getFunctionFromDomain| '|guessADE| '(|GuessInteger|) 
'((|List| (|Fraction| (|Integer|))))))

(#<compiled-function |GUESS;guessADE;LL;101|> . #<vector 0000000004f790c0>)
BOOT> (SPADCALL l g)

NIL
BOOT> (setf l '((1 . 1) (2 . 1) (3 . 1) (4 . 1) (5 . 1) (6 . 1)))

((1 . 1) (2 . 1) (3 . 1) (4 . 1) (5 . 1) (6 . 1))
BOOT> (SPADCALL l g)

(((1
   #S(SPAD-KERNEL :OP #<vector 000000000529b9c0> :ARG
      (((1 #S(SPAD-KERNEL :OP #<vector 0000000004f487b0> :ARG NIL :NEST 1)
         (1 0 . 1))
        0 . 1)
       ((1 #S(SPAD-KERNEL :OP #<vector 0000000004e559f0> :ARG NIL :NEST 1)
         (1 0 . 1))
        0 . 1))
      :NEST 2)
   (1 0 . 1))
  0 . 1))
BOOT> (SPADCALL l g)

-- 
You received this message because you are subscribed to the Google Groups 
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.

Reply via email to