From: Siegfried Gonzi <siegfried.gonzi@stud.uni-graz.at>
To: Markus Mottl <markus@oefai.at>
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] Easy solution in OCaml?
Date: Sun, 27 Apr 2003 16:13:23 +0200 [thread overview]
Message-ID: <3EABE583.802@stud.uni-graz.at> (raw)
In-Reply-To: <20030425165944.GC6284@erle.ai.univie.ac.at>
>
>
>
>Markus Mottl wrote:
>
>>
>
>Or in OCaml, if you know how to do it elegantly and reasonably efficiently:
>
> let coll (len, sum as acc) n = if n >= 0 then len + 1, sum + n else acc
>
> let qmeans =
> let rec loop acc = function
> | a :: b :: c :: t ->
> let len, sum = coll (coll (coll (0, 0) a) b) c in
> loop ((if len = 0 then 0.0 else float sum /. float len) :: acc) t
> | [] -> List.rev acc
> | _ -> failwith "qmeans: illegal list" in
> loop []
>
As comparison I post my Clean version (it is more general or could be
made general, lets say for a list with 24 hours). But I am still not
contended, because why isn't it possible to use more elegant
"functional-constructs" which lead to short, easy to read and easy to
comprehend solutions (see also my post on comp.lang.functional):
==
module stat
import StdEnv
quarter:: [Real] Real -> [Real]
quarter ls nan = sum_it 0 0.0 0 ls []
where
sum_it:: Int Real Int [Real] [Real] -> [Real]
sum_it counter sum n [] erg = reverse erg
sum_it counter sum n [h:t] erg
| (counter == 2)
| n > 0 = sum_it 0 0.0 0 t [(sum/toReal(n)):erg]
= sum_it 0 0.0 0 t [nan:erg]
| h > nan = sum_it (counter+1) (sum+h) (n+1) t erg
| otherwise = sum_it (counter+1) sum n t erg
Start = quarter [1.0,2.0,-1.0,3.4,3.4,-1.0,-1.0,2.3,3.4,-1.0,-1.0,-1.0] (-1.0)
==
Regards,
S. Gonzi
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
next prev parent reply other threads:[~2003-04-27 15:25 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-04-25 6:05 Siegfried Gonzi
2003-04-25 8:19 ` sebastien FURIC
2003-04-25 15:46 ` Brian Hurt
2003-04-25 16:34 ` Ville-Pertti Keinonen
2003-04-26 13:45 ` Siegfried Gonzi
2003-04-26 21:51 ` Brian Hurt
2003-04-27 15:01 ` Siegfried Gonzi
2003-04-28 15:43 ` Brian Hurt
2003-04-29 5:46 ` John Max Skaller
2003-04-27 16:33 ` [Caml-list] Re: IEEE-754 (was: Easy solution in OCaml?) Christophe TROESTLER
2003-04-25 16:59 ` [Caml-list] Easy solution in OCaml? Markus Mottl
2003-04-26 6:25 ` Siegfried Gonzi
2003-04-27 14:13 ` Siegfried Gonzi [this message]
2003-04-27 16:54 ` Eray Ozkural
2003-04-28 5:00 ` Siegfried Gonzi
2003-04-28 17:45 ` malc
2003-04-28 18:16 ` Shivkumar Chandrasekaran
[not found] <20030427164326.34082.qmail@web41211.mail.yahoo.com>
2003-04-28 12:05 ` Siegfried Gonzi
2003-04-28 13:54 ` Noel Welsh
2003-04-28 14:22 ` David Brown
2003-04-28 14:38 ` sebastien FURIC
2003-04-28 18:14 ` Eray Ozkural
2003-05-03 14:37 ` John Max Skaller
2003-05-03 16:57 ` Eray Ozkural
2003-04-28 15:27 isaac gouy
2003-04-28 16:38 ` brogoff
2003-04-28 17:13 ` isaac gouy
2003-04-28 17:48 ` Brian Hurt
2003-04-28 17:50 ` brogoff
2003-04-28 18:31 ` Eray Ozkural
2003-04-29 6:46 ` Siegfried Gonzi
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=3EABE583.802@stud.uni-graz.at \
--to=siegfried.gonzi@stud.uni-graz.at \
--cc=caml-list@inria.fr \
--cc=markus@oefai.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).