abhin4v

import qualified Data.PQueue.Prio.Min as PQ
import qualified Data.HashSet as Set
import qualified Data.HashMap.Strict as Map
import Data.Hashable (Hashable)
import Data.List (foldl')
import Data.Maybe (fromJust)

astarSearch :: (Eq a, Hashable a) => a -> (a -> Bool) -> (a -> [(a, Int)]) -> (a -> Int) -> Maybe (Int, [a])
astarSearch startNode isGoalNode nextNodeFn heuristic =
  astar (PQ.singleton (heuristic startNode) (startNode, 0))

derekphilipau

# Delete all Cloudflare images
# Useful if migrating to a different images provider
# Unfortunately Cloudflare still doesn't offer bulk delete

import requests

# Replace with your actual account and authorization details
account_identifier = "youraccountid"
api_token = "yourapitokenhere"