Christian/Johnny
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed overwriteAt, that did not overwrite if first pos in Array is to be changed

Browse Source
This commit is contained in:
Christian 2021-05-09 15:45:19 +02:00
parent a711e0d148
commit 673ac452ea
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/PC/Helpers.elm
View File

@ -33,9 +33,7 @@ overwriteAt default pos newVal list =
let let
len = List.length list len = List.length list
in in
if pos == 0 then if pos > len then
newVal :: list
else if pos > len then
list ++ list ++
(List.repeat (pos-len) default) ++ (List.repeat (pos-len) default) ++
[newVal] [newVal]
@ -51,9 +49,7 @@ overwriteAt_Arr default pos newVal list =
let let
len = Array.length list len = Array.length list
in in
if pos == 0 then if pos > len then
Array.append (Array.fromList [newVal]) list
else if pos > len then
Array.append list Array.append list
<| Array.append (Array.repeat (pos-len) default) <| Array.append (Array.repeat (pos-len) default)
<| Array.fromList [newVal] <| Array.fromList [newVal]