使用haskell根據兩個相鄰位置的另一個欄位的值之差來計算一個欄位的值 -有解無憂

我有一個自定義資料物件的串列，它使用一個欄位total來跟蹤每天增加的總價值。自定義資料型別中的另一個欄位是值new。我使用一個csv檔案讀取了date和total的值，并試圖從這些值中計算和設定new的值。

data item = Item{
    date :: Day,
    total :: Int,
    new :: Int, new :: Int
}

前

日期	總數	新
01/2021	0	02/01/2021?	03/01/2021?	04/01/2021?	15

0 0 0

后

日期	總數	新
01/2021	0	02/01/2021?	2
2	2
2	03/01/2021?	04/01/2021?	15

9 9 9 9 9

我的理解是，在 haskell 中，我應該努力避免使用 for 回圈，該回圈在一個串列上迭代直到達到最后一行，例如使用一個回圈控制，在達到與串列長度相等的值時終止。

作為替代，我試圖創建一個函式，該函式分配 new 的值，可以與 map 一起使用，以更新串列中的每個專案。我的問題是，這樣一個函式需要訪問被更新的專案，以及前一個專案的total值，我不確定如何在haskell中實作這個功能。

--通過在串列中映射單個更新函式來設定每日值。
calcNew:: [Item] -> Int -> [Item]
calcNew items = map updateOneItem items 

--采取一個專案和一個值來填充新的領域。
updateOneItem :: Item -> Int -> Item ->
updateOneItem item x = Item date item total item x

是否有可能在使用map時填充該值？如果不能，是否需要一個遞回的解決方案？

uj5u.com熱心網友回復：

我們可以通過將輸入串列與自身進行壓縮，移位一步來實作這個目標。

假設你有一個已經填充了total值的專案串列，你想更新它以包含正確的new值（當然是建立一個更新的副本），

type Day = Int<

data Item = Item{ --資料 Item, NB
    date :: 日。
    total :: Int,
    new :: Intderiving Show>

calcNews :: [Item] -> [Item]
calcNews [] = []
calcNews totalsOK@(t:ts) = t : zipWith f ts totalsOK
  where
  f this prev = this{ new = total this - total prev }

這就給了我們

> calcNews [Item 1 0 0, Item 2 2 0, Item 3 5 0, Item 4 10 0]
[Item {date = 1, total = 0, new = 0}, Item {date = 2，total = 2，new = 2}。
 Item {date = 3, total = 5,new = 3}, Item {date = 4, total = 10, new = 5]

當然zipWith f x y == map ((a,b) -> f a b) $ zip x y，正如我們在你之前的問題中看到的，所以zipWith就像一個二進制 map。

有時（雖然不是在這里）我們可能也需要訪問之前的計算值，以計算下一個值。為了安排這一點，我們可以通過將輸入與result本身的移位版本進行壓縮來創建結果：

calcNews2 :: [Item] -> [Item]
calcNews2 [] = []
calcNews2 (t:totalsOK) = newsOK
  where
  newsOK = t : zipWith f totalsOK newsOK
  f tot nw = tot{ new = total tot - total nw }

轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/316931.html

標籤：

上一篇：redirectTo作業，但不改變IHP中的URL

下一篇：如何使用GADT和Data.Map創建一個型別化的玩具語言環境映射？