6 lines
373 B
Text
6 lines
373 B
Text
block([i:1,count:0,result:[]],
|
|
while count<10 do (if primep(i!-1) or primep(i!+1) then (result:endcons(i,result),count:count+1),i:i+1),
|
|
result:map(lambda([x],[x,x!-1,x!+1]),result),
|
|
append(map(lambda([x],if primep(x[2]) then [x[1],x[2],"subtracted"]),result),map(lambda([x],if primep(x[3]) then [x[1],x[3],"added"]),result)),
|
|
unique(%%),
|
|
firstn(%%,10);
|