From b7963e87a617f0251bacaf1ce00f0e7d533e5157 Mon Sep 17 00:00:00 2001 From: ProgramSnail Date: Wed, 5 Nov 2025 01:57:37 +0300 Subject: [PATCH] 02 changes --- 02.hs | 24 +++++++++++++++++------- 1 file changed, 17 insertions(+), 7 deletions(-) diff --git a/02.hs b/02.hs index 538fd47..6f396a0 100644 --- a/02.hs +++ b/02.hs @@ -104,13 +104,23 @@ nextExprsLists' newExprs oldExprs = let listNewExprs = [ e | e <- newExprs, type [concat [[e :+: e' | e <- listNewExprs, e' <- listNewExprs], [e :+: e' | e <- listNewExprs, e' <- listOldExprs], [e :+: e' | e <- listOldExprs, e' <- listNewExprs]], - concat [[SubList e from to | e <- listNewExprs, from <- intNewExprs, to <- intNewExprs], - [SubList e from to | e <- listOldExprs, from <- intNewExprs, to <- intNewExprs], - [SubList e from to | e <- listNewExprs, from <- intOldExprs, to <- intNewExprs], - [SubList e from to | e <- listNewExprs, from <- intNewExprs, to <- intOldExprs], - [SubList e from to | e <- listOldExprs, from <- intOldExprs, to <- intNewExprs], - [SubList e from to | e <- listOldExprs, from <- intNewExprs, to <- intOldExprs], - [SubList e from to | e <- listNewExprs, from <- intOldExprs, to <- intOldExprs]]] + concat [ + -- [SubList e from to | e <- listNewExprs, from <- intNewExprs, to <- intNewExprs], + -- [SubList e from to | e <- listOldExprs, from <- intNewExprs, to <- intNewExprs], + -- [SubList e from to | e <- listNewExprs, from <- intOldExprs, to <- intNewExprs], + -- [SubList e from to | e <- listNewExprs, from <- intNewExprs, to <- intOldExprs], + -- [SubList e from to | e <- listOldExprs, from <- intOldExprs, to <- intNewExprs], + -- [SubList e from to | e <- listOldExprs, from <- intNewExprs, to <- intOldExprs], + [SubList InList from to | -- e <- listNewExprs, + from <- intNewExprs, + to <- intNewExprs], + [SubList InList from to | -- e <- listNewExprs, + from <- intNewExprs, + to <- intOldExprs], + [SubList InList from to | -- e <- listNewExprs, + from <- intOldExprs, + to <- intNewExprs] + ]] nextExprs' :: [Expr] -> [Expr] -> [Expr] nextExprs' newExprs oldExprs = concatShuffle $ nextExprsLists' newExprs oldExprs