リストからすべての3番目の要素を削除するF＃

Question

F＃でモジュールを作成しようとしていますが、3番目の要素がリストから削除され、その要素がない新しいリストが返されます。私は今、私はエラーが供給していますので、これまで

module Program1 = 
open System 
let remove list1= 
    let collectList = List.iteri (fun i x -> if i%3 <> 0 then x) list1 
    collectList 
[<EntryPoint>] 
let main argv = 
let list = [ 1; 2; 3] 
printfn "new List is %A" (Program1.remove list) 
0 

を試してみましたが、私は解決するために、すべての日を試みた何この出力

List with elements eliminated: [1; 2; 4; 5; 7; 8; 10; 11; 13; 14] 

を与えるsould例

let input = [ 1 .. 15 ] 

printfn "List with elements eliminated: %A" (Program1.remove input) 

ため

それ。 は、このエラーのために事前

Answer 1

にありがとう：

error FS0001: Type mismatch. Expecting a 
    'unit list' 
but given a 
    'int list' 
The type 'unit' does not match the type 'int' 

問題はラインif i%3 <> 0 then xから来ています。 else節を持たないif式です。タイプはunitでなければなりません。タイプ推論の結果は、のxになります。 F＃条件式の詳細については、https://docs.microsoft.com/en-us/dotnet/articles/fsharp/language-reference/conditional-expressions-if-then-elseを参照してください。

編集List.iteriはunitを返すので、List.iteriはあなたの意図したことをしません。問題を解決するには、List.map、List.filter、List.choose、List.foldBackなどの関数が必要です。

（あなたは軽微な変更を加える必要があります）この問題にアプローチする方法についてのアイデアを得るために、この記事から受け入れ答えを読む：Getting every nth Element of a Sequence

リストを結果に構築するためにList.foldBackを使用して簡単な方法もあります。

Answer 2

私はあなたが一つの機能的なアプローチよりも、その最初のケースは、この

//safe take and skip fn (no exceptions) 
let take x xs = if List.length xs >= x then List.take x xs else [] 
let skip x xs = if List.length xs >= x then List.skip x xs else [] 
let rec remove x xs = 
    //effectively this drops every xnt element 
    let head = take (x - 1) xs 
    let tail = skip x xs 
    match tail with 
    | [] -> head 
    | _ -> List.append head (remove x tail) 

let x = ["One";"Two";"Three";"Four";"Five";"Six";"Seven";"Eight";"Nine";"Ten"] 
remove 3 x 

ようなことができれば3

により、すべての3番目の値またはすべての値のdivideableをフィルタ処理しようとする場合は、これがわかりませんかなり重い重量;-)
あなたはほとんど

let x = ["One";"Two";"Three";"Four";"Five";"Six";"Seven";"Eight";"Nine";"Ten"] 
let indices = [1 .. List.length x] 

List.zip indices x 
|> List.filter (fun (x,_) -> x % 3 <> 0)