Re: [StrongED] Roman numerals

[Peter Young <pnyoung@xxxxxxxxxxxx>]

On 15 Aug 2017  David Pitt <pittdj@xxxxxxxxxxxx> wrote:

> Gavin Wraith, on 15 Aug, wrote:

>> In message <mpro.ouqmja002a56b0244.pittdj@xxxxxxxxxxxx>
>>           David Pitt <pittdj@xxxxxxxxxxxx> wrote:
>> 
>>> sumnums has more than one issue. adding 'require' as in :-
>>>
>>> in require "lpeg"
>>>
>>> helped, [well done !] but it now falls over at line 12.
>> 
>> I cannot put my finger on sumnums - must have it somewhere, I
>> suppose. If it is meant to add up all the positive integers
>> occurring in a text then this ought to do as an unsophisticated
>> zero-approximation:
>> 
>> #! lua
>> local n = 0
>> for line in io.lines (arg[1]) do
>>   for x in line:gmatch "%d+" do n += tonumber (x) end -- for
>> end -- for
>> print "Total = ", n
>> 
> That works, but with :-

> print ("Total = ", n)

Yes, with that change it works, thanks.

> This is the sumnuns I have :-

> #! lua
> -- Add up numbers within a text
> do
> io.input(arg[1])
> text = io.read("*all")
> io.input()
> local add = \(x,y) => x+tonumber(y) end
> local R,P,C,Ca,Cc in lpeg
> local digit, point = R "09", P "."
> local num = C(digit^1*point^(-1)*digit^0)/add
> local notnum = (1-digit)^1
> local pattern = Ca(Cc(0)*(num + notnum)^0)
> local result = pattern:match(text)
> print(result or 0)
> end -- do

> This was in a StrongED download.

This doesn't work. Where did you get that in a StrongED download?

Best wishes,

Peter.

-- 
Peter Young (zfc Pt) and family
Prestbury, Cheltenham, Glos. GL52, England
http://pnyoung.orpheusweb.co.uk
pnyoung@xxxxxxxxxxxx

--=20
To unsubscribe send a mail to StrongED+unsubscribe@xxxxxxxxxxx
List archives at http://www.Torrens.org/RO/StrongED/index.html