lens

    11

    2답변

    Control.Lens으로 작업하고 있습니다. 내가 쓰고있어 실제 기능은 다소 복잡하지만,이 질문의 목적을 위해, 나는 최소한의 실패 예까지를 삶은했습니다 : 이것은 다음과 같은 오류 메시지가 산출 컴파일에 실패 import Control.Lens exampleFunc :: Lens s t a b -> String exampleFunc _ = "Ex

    3

    1답변

    일련의 이미지에서 렌즈 왜곡을 보정하고 싶습니다. 모든 이미지는 카메라가 고정되어있는 상태에서 촬영되었으며 동일한 설정의 바둑판 이미지도 사용할 수 있습니다. 왜곡 된 체커 보드 이미지의 모서리를 감지 한 후 이미지를 보정 할 수 있도록 방사형 왜곡 계수를 계산하고 싶습니다. estimateCameraParameters 기능과 유사합니다. 이상적으로, Ma

    2

    1답변

    Snap의 소스를 최근에 읽었습니다.이 기능은 훌륭합니다.하지만 Snaplet Handler 소스를 읽으려고 할 때 RST, Lensed 및 LensT의 추상화에 빠져들게되었습니다. , newtype RST r s m a = RST { runRST :: r -> s -> m (a, s) } newtype LensT b v s m a = LensT (RST

    3

    2답변

    지금은 WorkLog 유형으로 시작일과 종료일이 있습니다. 또한 기간 렌즈를 추가하여 시작일과 종료일에서 파생됩니다. 읽기 전용이거나 값이 변경되면 종료 날짜를 변경해야합니다 (두 버전을 구현하는 방법을 알고 싶습니다. 단 하나만 사용 하겠지만). 여기 내 코드입니다. 기본적으로, 당신은 과 workLogDurationRW 주요 통과에서 모든 테스트를 얻을

    4

    1답변

    data Rec = Rec { _a :: Int , _b :: Int , _c :: Int } deriving (Show, Eq) makeLenses ''Rec 나는 새 값을 constuct 단지 2 가지 방법을 참조하십시오 Rec{_a=1,_b=2,_c=3} Rec 1 2 3 두 번째 변종이 보이지 않는를 레코드

    4

    1답변

    에드워드 크 메트의 마음 확장 렌즈와 렌즈 애슨 패키지를 사용해보십시오. 여기 워밍업이야 s = "{ \"somekey\" : [ { \"deeperkey\" : 1} , {\"deeperkey\": 2, \"otherkey\":3}]} 원하는 결과는 [(1, Nothing), (2, Just 3)] 내가 import Control.Lens.Aeso

    5

    1답변

    에 대한 국가 연결자 누락을 검색 하시나요 나는 현재 다음과 같습니다 코드를 한 줄에이 작업이 있지만 찾을 수 없습니다. (????) :: MonadState s m => Lens' s a -> (a -> m a) -> m a 질문 : 같은 콤비가 존재 하는가 나는 그것이 같은 의견을 가지고한다고 생각하십니까? 그렇다면 무엇입니까? 나는 그것을 검색하는

    9

    1답변

    다음 코드가 있습니다. 게임 상태가되면 활성 플레이어의 인생을 수정할 수 있기를 바랍니다. 나는 activePlayer 렌즈를 함께했다, 그러나 나는 시도하고 나는 다음과 같은 오류가 나타납니다 -= 연산자와 함께 사용할 때 > over (activePlayer.life) (+1) initialState <interactive>:2:7: No i

    4

    1답변

    나는 (Control.Lens 패키지에서) IndexedTraversal을 가지고 있으며 그 안에있는 각 요소에 인덱스 인식 모나 딕 액션을 적용하고 싶습니다. 불행히도 ^!과 act 함수를 결합하여 이와 같은 작업을하는 편리한 방법은 각 요소의 인덱스를 무시하는 것 같습니다. 인덱싱 된 트래버스에서 모든 요소 (및 해당 인덱스)에 대해 작업을 실행하는 좋

    1

    1답변

    내 말은, (here에서)이 마음에 들지 간단한 물건 : Linear에서 유형을 통해 매핑 렌즈를 사용하여 같은 strike :: StateT Game IO() strike = do lift $ putStrLn "*shink*" boss.health -= 10 그러나 것. vecMod :: (Integral a) => V2 a ->