DEV Community

DEV Community is a community of 578,968 amazing developers

We're a place where coders share, stay up-to-date and grow their careers.

Create new account Log in
loading...

Discussion on: Daily Challenge #48 - Facebook Likes

View post Full discussion
Collapse
citizen428 profile image
Michael Kohl • • Edited

F#:

let likes names =
    match names with
    | [] -> "no one likes this"
    | [ a ] -> sprintf "%s likes this" a
    | [ a; b ] -> sprintf "%s and %s like this" a b
    | [ a; b; c ] -> sprintf "%s, %s and %s like this" a b c
    | a :: b :: rest -> sprintf "%s, %s and %d others like this" a b rest.Length

Alternatively a point-free version without explicit argument, though it's considered bad style for exported functions:

let likes =
    function
    | [] -> "no one likes this"
    | [ a ] -> sprintf "%s likes this" a
    | [ a; b ] -> sprintf "%s and %s like this" a b
    | [ a; b; c ] -> sprintf "%s, %s and %s like this" a b c
    | a :: b :: rest -> sprintf "%s, %s and %d others like this" a b rest.Length