Solve the following problems using Prolog:

Define a relation quicksort $(L,SL$ which maps a list $L$ to a list $SL$ which is the sorted version of $L$ using the quicksort

algorithm.

$?-$ quicksort $([4,2,6,1,3],SL).$

$SL=[1,2,3,4,6].$

Define a relation mergesort $(L,SL)$ which maps a list $L$ to a list $SL$ which is the sorted version of $L$ using the mergesort

algorithm.

$?-$ mergesort $([4,2,6,1,3],SL).$

$SL=[1,2,3,4,6].$

Determine whether two numbers are amicable:

$?-$ are$\_$amicable$(220,284).$

true.