這是網上的haskell99題中第81題
(**) path from one node to another one
write a function that, given two nodes a and b in a graph, returns all the acyclic paths from a to b.
example in haskell:
paths 14[(1,2
),(2
,3),
(1,3
),(3
,4),
(4,2
),(5
,6)]
[[1,
2,3,
4],[
1,3,
4]]paths 26[
(1,2
),(2
,3),
(1,3
),(3
,4),
(4,2
),(5
,6)]
以前都是用c++來解決圖論問題，現在用乙個簡單的haskell程式更見清晰明了
paths :: int -> int -> [(int , int)] -> [[int]]paths start end zs = let (xs,ys) = partition (/(_,z) -> z == end ) zs
in map (++ [ end] ) ( concat . map (/(e, _) -> if e == start then [[start]] else paths start e ys) $ xs )
乙個簡單的查詢語句
今天要寫乙個查詢語句，寫了半天沒弄出來，最後在同事的幫助下，用group by搞定了。其實蠻簡單的，只是我用資料庫用的太少了，呵呵 物品表 good 欄位為gid 物品id price 物品 和tid 所屬交易id 交易表 trade，欄位為tid 交易id date 交易時間 需要寫乙個查詢語句，...
問題 A 乙個簡單的整數問題
問題 a 乙個簡單的整數問題 時間限制 5 sec 記憶體限制 128 mb 提交 75 解決 25 提交 狀態 討論版 命題人 quanxing edit testdata 題目描述 你有 n個整數，a1，a2，an。你需要處理兩種操作。一種操作是在給定間隔中為每個數字新增一些給定數字。另一種是要...
FAFU OJ 乙個簡單的問題
乙個簡單的問題 time limit 1000ms memory limit 65536kb total submissions 1386 accepted 240 share description 給定n個正整數和乙個正整數p，要求你從中找出兩個數字a，b使得a b p input 第一行兩個數...