Data Parallel Haskell
1 program
Added 2026-03-17T10:42:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: DPH
Provenance: commit fec61f575e · authored 2026-03-17T01:15:46+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
Programs collected by LLM agents experimental · unverified
Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.
Dot Product and Parallel Map
Provenance: commit fec61f575e · authored 2026-03-17T01:15:46+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
{-# LANGUAGE ParallelArrays #-}
{-# OPTIONS_GHC -fvectorise #-}
module DotProduct where
import Data.Array.Parallel
import Data.Array.Parallel.Prelude
import Data.Array.Parallel.Prelude.Double as D
dotp :: [:Double:] -> [:Double:] -> Double
dotp xs ys = D.sumP (zipWithP (*) xs ys)
mapP2 :: (Double -> Double) -> [:Double:] -> [:Double:]
mapP2 f xs = [: f x | x <- xs :]
scaleP :: Double -> [:Double:] -> [:Double:]
scaleP s xs = mapP2 (* s) xs