1. Forum
  2. Usenet
  3. COMP.LANG.PROLOG

  • **** miniPROLOG **** ..... PROLOG DUAL TAIL RECURSION

    From Graham Cooper@21:1/5 to All on Sun Feb 26 00:02:10 2023
    A LOT of Trial and Error to get it right!



    CALLTAIL( $TAIL $TAILNUM )
    {
    ....


    if ($c[$ans][1] > '')
    {
    $retval = head( $c[$ans][1] ); // ***************** call to function
    }

    if ( $c[$tail][$tailnum+1] > '' )
    {
    $retval = calltail($tail,$tailnum+1); // ************ call next tail
    if (!$retval)
    {
    $qstart = $ans; // ************ TRY AGAIN BEGINNING AT NEXT RECORD
    $fin = false;
    $v = $origv;
    }
    }

    } // **************** ANS > 0

    } //**************** WHILE

    return $retval;
    }



    PROTYPE V1.0

    www.miniPROLOG.com

    Try Entering [ happy gaga ] [ QUERY ]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)