locatw · August 29, 2015 14:27
diff --git a/replaceAmpersandHyphenToAmpersand.fs b/replaceAmpersandHyphenToAmpersand.fs
 let replaceAmpersandHyphenToAmpersand (input : byte list) =
    let replacedTail =
        input
        |> List.windowed 2
        |> List.choose (fun chunk -> match chunk with
                                     // 0x26 : '&', 0x2d : '-'
                                     | [a; b] when a = (byte)0x26 && b = (byte)0x2d -> None
                                     | [_; b] -> Some(b)
                                     | _ -> failwith "invalid chunk")
    input.Head :: replacedTail
	let replaceAmpersandHyphenToAmpersand (input : byte list) =
	let replacedTail =
	input
	\|> List.windowed 2
	\|> List.choose (fun chunk -> match chunk with
	// 0x26 : '&', 0x2d : '-'
	\| [a; b] when a = (byte)0x26 && b = (byte)0x2d -> None
	\| [_; b] -> Some(b)
	\| _ -> failwith "invalid chunk")
	input.Head :: replacedTail
No results found