Как создать логический список boolean зависит от вставленных счетчиков и списка в f #

Question

Мне нужен код, который создает логический список, зависит от вставленного списка и количества. Например, когда пользователь дает Список [0,1,2,3,4,5,6,7,8,9,10] и count = 2 затем код делает bool List [true, false , правда, ложь, истина, ложь, истина, ложь, истина, ложь, правда]

Когда кол = 3 то это сделает List его [истинного, ложный, ложный, истинный, ложный, ложным, истина, ложь, ложь, истина, ложь]

Если счетчик = 4 затем [истина, ложь, ложь, ложь, истина, ложь, ложь, ложь, правда, false] и т. д.

Я написал следующий код, но я думаю, что этот код неверен, я новичок в f #, поэтому мне нужна помощь. Благодарю.

let Group (s1 : List) (c : int) = 
     let lenght = List.length(s1) 
     (lenght) 
      let rec MakeBool (count : int) (boolist : List) = 
       while lenght > 0 do 
        if lenght % count = 0 then boolist = true::boolist 
        if lenght % count <> 0 then boolist = false::boolist  
        lenght = lenght - 1 
        MakeBool count boolist 

Answer 1

Использование функции высокого порядка (рекомендуется):

let group ls c = 
    ls |> List.mapi (fun i _ -> i%c = 0) 

добавить собственные функции:

let group ls c = 
let length = List.length ls  
let rec makeBool count acc = 
    if count = length then acc // Come to the end of ls, return the accummulator 
    elif count%c=0 then // Satisfy the condition, prepend true to the accummulator 
    makeBool (count+1) (true::acc) 
    else // Otherwise prepend false to the accummulator 
    makeBool (count+1) (false::acc) 
List.rev (makeBool 0 []) // The accummulator is in backward order, reverse it 

Answer 2

Нравится?

let Group l c = [ for l' in 0..l -> (l' % c) = 0 ] 

signatue является Group : int -> int -> bool list

• [a..b] создает список целых чисел от а до Ь (оба включительно)
• [для й в a..b -> е (x)] делает то же самое, но применяет f к каждому элементу.
• (a% c) = 0 просто проверяет, является ли a модулем c.

// H