How to represent characteristic function of a single-point set?

Question

I am trying to find the way how to represent characteristic function of a single-point set. My idea was to write the points by set:

Ainput = {{2/5, 1/4}};

ListPlot[Ainput, PlotRange -> {{0, 1}, {0, 1}}]

Now I want to find a y coordinates for points

{{x -> 2/5}, {x -> 3/5}}

but because I don't have Ainput defined like a function it gives me in both points 0 results instead of 1/4,0. Do you have any suggestions how could I define the function or how could I find the y-coordinate? Thank you.

Answer 1

#[[1, 2]] Boole[x == #[[1, 1]]] &@Ainput /. {{x -> 2/5}, {x -> 3/5}}

{1/4, 0}

Also

Function[x, #[[1, 2]] Boole[x == #[[1, 1]]] &@Ainput] /@ {2/5, 3/5}

{1/4, 0}