grid :: [(Integer, Integer)]
grid = f (0,0)
    where
      f (x,y) = (x,y) : f next
          where
            next | x == 0 && y == 0                   = right
                 | x >  0 && y <  0 && abs x <= abs y = left
                 | x >  0 && y <= 0                   = down
                 | x <  0 && y <  0 && abs x >= abs y = up
                 | x <= 0 && y <  0                   = left
                 | x <  0 && y >  0 && abs x <= abs y = right
                 | x <  0 && y >= 0                   = up
                 | x >  0 && y >  0 && abs x > abs y  = down
                 | x >= 0 && y >  0                   = right
            left  = (x-1,y)
            right = (x+1,y)
            up    = (x,y+1)
            down  = (x,y-1)
 
gridInCircle :: Integer -> [(Integer, Integer)]
gridInCircle r | r > 0 = [p | p@(x,y) <- takeWhile ((r,r)/=) grid, x^2+y^2<=r^2]
               | otherwise = []
 
main :: IO ()
main = do
    print $ take 25 grid
    print $ gridInCircle 2
 

Z3JpZCA6OiBbKEludGVnZXIsIEludGVnZXIpXQpncmlkID0gZiAoMCwwKQogICAgd2hlcmUKICAgICAgZiAoeCx5KSA9ICh4LHkpIDogZiBuZXh0CiAgICAgICAgICB3aGVyZQogICAgICAgICAgICBuZXh0IHwgeCA9PSAwICYmIHkgPT0gMCAgICAgICAgICAgICAgICAgICA9IHJpZ2h0CiAgICAgICAgICAgICAgICAgfCB4ID4gIDAgJiYgeSA8ICAwICYmIGFicyB4IDw9IGFicyB5ID0gbGVmdAogICAgICAgICAgICAgICAgIHwgeCA+ICAwICYmIHkgPD0gMCAgICAgICAgICAgICAgICAgICA9IGRvd24KICAgICAgICAgICAgICAgICB8IHggPCAgMCAmJiB5IDwgIDAgJiYgYWJzIHggPj0gYWJzIHkgPSB1cAogICAgICAgICAgICAgICAgIHwgeCA8PSAwICYmIHkgPCAgMCAgICAgICAgICAgICAgICAgICA9IGxlZnQKICAgICAgICAgICAgICAgICB8IHggPCAgMCAmJiB5ID4gIDAgJiYgYWJzIHggPD0gYWJzIHkgPSByaWdodAogICAgICAgICAgICAgICAgIHwgeCA8ICAwICYmIHkgPj0gMCAgICAgICAgICAgICAgICAgICA9IHVwCiAgICAgICAgICAgICAgICAgfCB4ID4gIDAgJiYgeSA+ICAwICYmIGFicyB4ID4gYWJzIHkgID0gZG93bgogICAgICAgICAgICAgICAgIHwgeCA+PSAwICYmIHkgPiAgMCAgICAgICAgICAgICAgICAgICA9IHJpZ2h0CiAgICAgICAgICAgIGxlZnQgID0gKHgtMSx5KQogICAgICAgICAgICByaWdodCA9ICh4KzEseSkKICAgICAgICAgICAgdXAgICAgPSAoeCx5KzEpCiAgICAgICAgICAgIGRvd24gID0gKHgseS0xKQoKZ3JpZEluQ2lyY2xlIDo6IEludGVnZXIgLT4gWyhJbnRlZ2VyLCBJbnRlZ2VyKV0KZ3JpZEluQ2lyY2xlIHIgfCByID4gMCA9IFtwIHwgcEAoeCx5KSA8LSB0YWtlV2hpbGUgKChyLHIpLz0pIGdyaWQsIHheMit5XjI8PXJeMl0KICAgICAgICAgICAgICAgfCBvdGhlcndpc2UgPSBbXQoKbWFpbiA6OiBJTyAoKQptYWluID0gZG8KICAgIHByaW50ICQgdGFrZSAyNSBncmlkCiAgICBwcmludCAkIGdyaWRJbkNpcmNsZSAyCg==