0votos

Cuadrado de carácteres en F#

por nicolocodev hace 2 años

Usando strings

Crear un programa que lea un número y a partir de él cree un cuadrado de carácteres con ese tamaño. Los carácteres del borde deben ser diferentes a los del interior.

1
2
3
4
5
6
7
8
module CharSquare =  
    open System     
    let make size =  
        let makeString (size : int) = sprintf "%c%s%c" 'X' (String('@', size - 2)) 'X' 
        List.init size (fun x ->  
            if x = 0 || x = size - 1 then String('X', size) 
            else makeString size) 
        |> List.reduce (fun x y -> sprintf "%s%s%s" x Environment.NewLine y) 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.