Untitled

How to combine all solutions within one list in Mathematica?
In[1]:= Solve[x == 1 &&  2 >= y >= 1, {x, y}, Integers]
    Out[1]= {{x -> 1, y -> 1}, {x -> 1, y -> 2}}

{x->1, y->1,2}

In[1]:= Solve[x == 1,{x}]
    Out[1]= {x -> 1}
    In[2]:= x
    Out[2]= x
    In[3]:= Definition[x]
    Out[3]= Null
    In[4]:= ?x
            Global`x

vars = {x, y};

sols = Solve[x == 1 && 2 >= y >= 1, vars, Integers];

Thread[ vars -> Union /@ (vars /. sols) ]

{x -> {1}, y -> {1, 2}}

sols = Solve[x^2 + a x + 1 == 0, x]

MapIndexed[(gg[#2[[1]]][a_] := #) &, x /. sols];

Plot[gg[1][a], {a, 1, 4}]

gg[2] /@ {1, 2, 3}

{1/2 (-1 + I Sqrt[3]), -1, 1/2 (-3 + Sqrt[5])}

In[3]:= sol = Solve[x == 1 && 2 >= y >= 1, {x, y}, Integers]
Out[3]= {{x -> 1, y -> 1}, {x -> 1, y -> 2}}

In[4]:= x /. sol
Out[4]= {1, 1}

In[5]:= Union[x /. sol]
Out[5]= {1}

In[6]:= Union[y /. sol]
Out[6]= {1, 2}

sol = Solve[x == 1 && 2 >= y >= 1, {x, y}, Integers]
x /. sol
Union[x /. sol]
Union[y /. sol]
Clear[sol]

Solve[x == 1 && 2 >= y >= 1, {x, y}, Integers] /.  Rule[a_, b_] -> b

{x -> #[[1]], y -> #[[2]]} &

solutionlist = (Solve[x == 1 && 2 >= y >= 1, {x, y}, Integers] /.
       Rule[a_, b_] -> b ) // {x -> #[[1]], y -> #[[2]]} &

{x -> {1, 1}, y -> {1, 2}}

{xlist, ylist} = {x, y} /. solutionlist

?xlist

{x -> Union@#[[1]], y -> Union@#[[2]]} &