Find the nearest Prime by m.ukai (embed)

List.map(fun i->Printf.printf"%.f
"(read_float()-.(float i)))[|[-3;5;0;8;5;2;-5;-3;-2;7;2;4;-4;-2;-1;1;16;-3;12;-4;-14;0;3;3;8;3;2;4;1;-6;2;1;-4;-2;-13;8;-6;1;0;3;-4;-4;-10;1;4;-1;3;-3;3;3;-7;-3;2;-1;4;-6;15;9;-1;-2;-3;0;6;2;2;7;0;1;8;1;0;4;-1;0;-1;-5;3;-8;-6;-6;5;0;-6;-3;-6;7;17;0;2;8;7;-6;-2;4;3;2;-1;-2;-3;3;6;6;-2;11;-2;-6;-10;11;6;6;6;-6;3;-3;-10;-3;7;3;7;1;0;8;-5;5;-4;-3;-1;1;-3;-3;-1;-2;-2;-2;-5;3;-2;2;3;1;-2;0;3;-2;1;0;1;-1;1;-4;1;4;-5;-7;1;-19;2;-4;-2;2;3;0;5;-2;-1;2;-7;4;0;-5;-4;-2;-4;3;-2;13;-2;3;-3;-1;4;2;-4;6;1;-5;-2;-7;0;3;-1;0;12;4;3;3;-1;3;-1;1];[2;13;10;7;-32;-4;1;-8;4;0;-3;13;3;4;-28;-20;9;17;-11;7;9;1;15;4;9;-4;-2;-22;4;-10;0;-29;0;-5;2;-11;-3;-10;-3;3;-1;3;-26;24;4;10;-5;-44;-24;14];[29;2;6;-4;-9;4;-7;1;3;0;3;10;0;23;-14;5;3;13;25;-11;8;-14;-6;-1;-3;0;1;12;-37;-4;-11;11;-3;-14;2;-2;-10;-5;5;4;4;-11;9;-2;-5;10;2;11;3;0;15;-1;9;-7;8;19;5;11;-3;10;0;5;12;18;7;-5;-8;3;1;-3;-5;-4;1;-7;5;1;1;0;-8;8;8;-5;9;4;0;1;-19;-7;2;-1;-3;6;4;14;-2;8;0;-15;16;-10;19;-20;1;10;-8;5;-2;1;-8;9;5;-1;0;-36;-1;-3;-7;-11;21;4;3;5;5;6;3;15;1;6;-4;-3;-17;3;23;-1;-7;-8;1;-2;3;-21;-5;-1;8;-3;5;11;18;-1;-31;-2]|].(-Obj.magic(@)mod 3)

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page