Ring on Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

This is the 644th Ring task on Rosetta Code

Now I added Brazilian Numbers sample.

I ask other members to send samples.

Have a nice time and work.

Greetings,

Gal Zsolt

(~ CalmoSoft ~)

[Mahmoud Fayed]

Hello Gal

Thanks for adding more samples to RosettaCode :D

Keep up the GREAT WORK :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[CalmoSoft]

Hello Mahmoud et All,

The Ring Programming Language rank among the best (30th from total 809)

----------------------------------------------------------------------------------------

rank: 1 (1010 entries) Kotlin

rank: 2 (977 entries) Racket

rank: 3 (968 entries) Python

rank: 4 (962 entries) Perl 6

rank: 5 (931 entries) Go

rank: 6 (914 entries) Tcl

rank: 7 (905 entries) C

rank: 8 (888 entries) J

rank: 9 (882 entries) Zkl

rank: 10 (875 entries) Java

......

rank: 30 (580 entries) Ring

......

rank: 523 (2 entries) TechBASIC

rank: 524 (2 entries) Thyrd

rank: 525 (2 entries) ToffeeScript

rank: 526 (2 entries) Viua VM assembly

rank: 527 (2 entries) XL

rank: 528 (2 entries) XProc

rank: 529 (2 entries) XSLT 1.0

rank: 530 (2 entries) XTalk

rank: 531 (2 entries) XUL

rank: 532 (2 entries) ZPL

---------------------------------------------------------------------------------------- 

I will soon update the rank list.

[Mahmoud Fayed]

Hello Gal

"I will soon update the rank list."

Thanks for sharing :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[CalmoSoft]

Hello Mahmoud et All,

The Ring Programming Language still rank among the best (33th from total 809)

I posted more than 500 samples.

(I hope I am not boastful)

----------------------------------------------------------------------------------------

rank: 1 (1287 entries) Go

rank: 2 (1259 entries) Phix

rank: 3 (1249 entries) Julia

rank: 4 (1239 entries) Raku

rank: 5 (1162 entries) Python

rank: 6 (1159 entries) Perl

rank: 7 (1104 entries) Kotlin

rank: 8 (1069 entries) C

rank: 9 (1063 entries) Java

rank: 10 (1058 entries) Racket

...

rank: 33 (643 entries) Ring

...

rank: 621 (2 entries) TechBASIC

rank: 622 (2 entries) Thyrd

rank: 623 (2 entries) ToffeeScript

rank: 624 (2 entries) Turbo-Basic XL

rank: 625 (2 entries) Viua VM assembly

rank: 626 (2 entries) WebAssembly

rank: 627 (2 entries) X86 64 Assembly

rank: 628 (2 entries) XL

rank: 629 (2 entries) XPath 2.0

rank: 630 (2 entries) XProc

---------------------------------------------------------------------------------------- 

[CalmoSoft]

Hello Mahmoud et All,

I attach the program with which I shared the rank list.

Have a nice time and work.

Code:

//---------------------------------------------------------------------------

# Project : Rosetta Code/Rank languages by popularity

# Date    : 20/11/2020-12:00:00

# Update  : 27/11/2020-08:00:00

# Author  : Gal Zsolt (CalmoSoft)

# Email   : calm...@gmail.com

//---------------------------------------------------------------------------

load "stdlib.ring"

see "working..." + nl + nl

ros= download("http://rosettacode.org/wiki/Category:Programming_Languages") 

pos = 1

totalros = 0

rosname = ""

rosnameold = ""

rostitle = ""

roslist = []

for n = 1 to len(ros)

        nr = searchstring(ros,'<li><a href="/wiki/',pos)

        if nr = 0

           exit

        else

           pos = nr + 1

        ok

        nr = searchname(nr)  

        nr = searchtitle(nr) 

next

roslist = sortfirst(roslist)

roslist = reverse(roslist)

 

see nl

for n = 1 to len(roslist)

     see "rank: " + n + " (" + roslist[n][1] + " entries) " + roslist[n][2] + nl

next

 

func searchstring(str,substr,n)

       newstr=right(str,len(str)-n+1)

       nr = substr(newstr, substr)

       if nr = 0

          return 0

       else

          return n + nr -1

       ok

 

func count(cstring,dstring)

       sum = 0

       while substr(cstring,dstring) > 0

               sum = sum + 1

               cstring = substr(cstring,substr(cstring,dstring)+len(string(sum)))

       end

       return sum

 

func searchname(sn)

       nr2 = searchstring(ros,"/wiki/Category:",sn)

       nr3 = searchstring(ros,"title=",sn)

       nr4 = searchstring(ros,'">',sn)

       nr5 = searchstring(ros,"</a></li>",sn)

       rosname = substr(ros,nr2+15,nr3-nr2-17)

       rosnameold = substr(ros,nr4+2,nr5-nr4-2)

       return sn

 

func searchtitle(sn)

        rostitle = "rosettacode.org/wiki/Category:" + rosname

        rostitle = download(rostitle)

        nr2 = 0

        roscount = count(rostitle,"The following")

        if roscount > 0

           rp = 1

           for rc = 1 to roscount

                nr2 = searchstring(rostitle,"The following",rp)

                rp = nr2 + 1

           next

        ok

        nr3 = searchstring(rostitle,"pages are in this category",nr2)

        if nr2 > 0 and nr3 > 0

           rosnr = substr(rostitle,nr2+14,nr3-nr2-15)

           rosnr = substr(rosnr,",","")

           add(roslist,[rosnr,rosnameold])

        ok

        return sn

 

func sortfirst(alist)

        for n = 1 to len(alist) - 1

             for m = n + 1 to len(alist)

                  if alist[m][1] < alist[n][1]

                     swap(alist,m,n)

                  ok

                  if alist[m][1] = alist[n][1] and strcmp(alist[m][2],alist[n][2]) > 0

                     swap(alist,m,n)

                  ok

             next

        next

        return alist

------------------------------------------------------------------------------------------------------------------

[Mahmoud Fayed]

Hello Gal

>> " I attach the program with which I shared the rank list."

It will be nice to add a GUI to the program (Window, TableWidget, Check Rank button)

So we can add it as a nice sample/application to Ring GitHub

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Very good suggestion.

I try to solve it but may will take a while.

Have a nice time and work.

[CalmoSoft]

Hello Mahmoud,

There is a little (?) problem.

The program is too slow: 16 min

There are almost 1000 records

[CalmoSoft]

Hello Mahmoud et All,

I added Sexy Primes sample to Rosetta Code

[CalmoSoft]

Hello Mahmous et All,

I added Smarandache prime-digital sequence sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Alternade words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added a new Perfect words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

Perfect words sample moved to Ordered words one

because all both are about the same problem.

[CalmoSoft]

Hello Mahmoud et All,

I added the Associative array/Merging sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Humble numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Long multiplication sample to Rosetta Code

[Mahmoud Fayed]

Hello Gal

Thanks for adding more samples to RosettaCode :D

Keep up the GREAT WORK :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[Mahmoud Fayed]

Hello Gal

You are welcome :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud et All,

I added the Möbius function sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Twin primes sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Ulam numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Fermat numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Extra primes sample to Rosetta Code

[Bert Mariani]

See this message on the site

This example is incorrect. Please fix the code and remove this message.

Details: Output includes numbers which are not prime but, by definition, 'extra primes' must be prime. Please also clarify what the precise task requirements are. Thank you."  

[CalmoSoft]

Hello Bert,

Thanks for your error report.

I corrected them.

(I forgot check if a number is prime itself)

See the sample again.

[CalmoSoft]

Hello Mahmoud et All,

I added Primality by Wilson's theorem sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Cuban primes sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Palindromic gapful numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Prime words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new ABC words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Odd words sample to Rosetta Code

[Mahmoud Fayed]

Hello Gal

Thanks for adding more samples to RosettaCode :D

Keep up the GREAT WORK :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[CalmoSoft]

Hello Mahmoud et All,

I added Changeable words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Words containing "the" substring to Rosetta Code

[Bert Mariani]

Hello Calmo

A lot of these "Message has been deleted" are showing up

Rosetta Code is also deleting these "Words and Letters" type pages.  

Maybe you should try some other program category.

Vowel words

Sorry, this page was recently deleted (within the last 24 hours). The deletion and move log for the page are provided below for reference.

• 16:34, 8 December 2020 Thundergnat (Talk | contribs) deleted page Vowel words (Yet another tiny variation on existing tasks)

  

On Tuesday, December 8, 2020 at 11:05:04 AM UTC-5 calm...@gmail.com wrote:

Hello Mahmoud et All,

I added the new Vowel words sample to Rosetta Code

[CalmoSoft]

Hello Bert,

Thanks for your error reports.

I can not look at all the tasks (over 1000)

[CalmoSoft]

Hello Mahmoud et All,

I added Pierpont primes sample to Rosetta Code

Have a nice day and work.

[CalmoSoft]

Hello Mahmoud et All,

I added the Tau number sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Sum of divisors sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Tau function sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Decimal floating point number to binary sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Find words which odd letters are consonants and even letters are vowels or vice versa sample to Rosetta Code

[Mahmoud Fayed]

Hello Gal

Thanks for adding more samples to RosettaCode

Keep up the GREAT WORK :D

Greetings,

Mahmoud

[Mansour Ayouni]

Thank you Gal,

You are doing a nice job to continuously promote Ring on RosettaCode!

Best,

Mansour

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/8bfbcce1-9ad8-4cf6-853b-b332765113d2n%40googlegroups.com.

[CalmoSoft]

Hello Mahmoud et Mansour,

Thanks for your kind words.

It really feels good for me.

Haveva nice day and work.

[CalmoSoft]

Hello Mahmoud, Mansour et All,

There are total 1083 tasks on Rosetta Code.

The Ring Team posted 667 ones.

This is 61,58%

The next plan is: 66,7 % (2/3 of total)

[Mansour Ayouni]

Excellent!

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/e7784580-74fd-48c0-a2eb-5d4117b68b31n%40googlegroups.com.

[CalmoSoft]

Hello Mahmoud, Mansour et All,

Have you got any idea what new task (sample) add to Rosetta Code?

Have a nice day and work.

[Mahmoud Fayed]

Hello Gal

Check samples for other languages that you know for example (Smalltalk)

https://rosettacode.org/wiki/Category:Smalltalk

If an example exist there and doesn't exist for Ring, write it in Ring

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your useful suggestions.

I will use them.

Have a nice dya and work.

[CalmoSoft]

Hello Mahmoud et All,

I added Safe primes and unsafe primes sample to Rosetta Code

Have a nice day and work.

[CalmoSoft]

Hello Mahmoud et All,

I added the Strong and weak primes sample to Rosetta Code

Have a nics day and work.

[CalmoSoft]

Hello Mahmoud et All,

I added the Self numbers sample to Rosetta Code

Have a nice day and work.

[CalmoSoft]

Hello Mahmoud et All,

I added the Fermat numbers sample to Rosetta Code

[Mahmoud Fayed]

Hello Gal

Very nice work

Thanks for adding more samples to RosettaCode

Keep up the GREAT WORK :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[Mahmoud Fayed]

Hello Gal

You are welcome :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud et All,

I added the ISBN13 check digit sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Next highest int from digits sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Pancake numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud,

I added the Zumkeller numbers sample to Rosetta Code

[Mahmoud Fayed]

Hello Gal

Thanks for adding more samples to RosettaCode

Very nice, Keep up the GREAT WORK :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

Thanks for your kind words.

[Mahmoud Fayed]

Hello Gal

You are welcome :D

Greetings,

Mahmoud

[CalmoSoft]

Hello Mahmoud,

I added the new Determine if a string is collapsible sample to Rosetta Code

[Mansour Ayouni]

Thank you Gal,

You are making nice effort in promoting Ring.

All the best,

Mansour

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/73516c23-3cea-4afa-9e5b-923d3ac4bbbfn%40googlegroups.com.

[CalmoSoft]

Hello Mansour,

Thanks for your kind words.

I try to solve as many Rosetta Code tasks as I could.

Now it is 676 from 1083 (62,4 %)

[CalmoSoft]

Hello Mahmoud et All,

Ring rank among the best:

Rosetta Code/Rank languages by popularity/Full list

Ring has the 33th rank.

[Mansour Ayouni]

Hello Gal,

This is mainly your achievement, so thank you very much!

All the best,

Mansour

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/98a30b33-bab5-4916-bc74-8f34292c035bn%40googlegroups.com.

[CalmoSoft]

Hello Mansour,

Thanks for your kind words.

Have a nice day and work.

[CalmoSoft]

Hello Mansour et All,

I forgot attach the next image:

[Mansour Ayouni]

So nice and motivating!

Thank you Gal.

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/00297908-abe4-4e2e-bef5-4ded54030a0dn%40googlegroups.com.

[CalmoSoft]

Hello Mansour,

Thanks for your kind words.

Have a nice day and work.

[Bert Mariani]

Interesting how some "newer" languages have so many examples posted

-- Go, Julia, Raku (Perl6)

The Ring examples were almost all done by Calmo !

This doesn't rank languages by "popularity",

only by how many task examples have been added on Rosettacode

for that particular language.

Rank Lang Entries Done %

1 Go 1306 99.77 %

2 Phix 1279 97.71 %

3 Julia 1270 97.02 %

4 Raku 1263 96.49 %

5 Perl 1207 92.21 %

6 Python 1190 90.91 %

7 Kotlin 1111 84.87 %

8 C 1086 82.96 %

9 Java 1078 82.35 %

10 Racket 1058 80.83 %

11 REXX 1024 78.23 %

12 Zkl 1011 77.23 %

13 J 1001 76.47 %

14 Ruby 988 75.48 %

15 C++ 975 74.48 %

16 Haskell 974 74.41 %

17 D 957 73.11 %

18 Tcl 955 72.96 %

19 Wren 940 71.81 %

20 Scala 890 67.99 %

...

30 Rust 716 54.7 %

33 Ring 676 51.64 %

[CalmoSoft]

Hello Bert,

Thanks for your useful informations.

You are right.

[CalmoSoft]

Hello Mahmoud et All,

I added the new Words from neighbour ones sample to Rosetta Code

Have a nice day and work.

[CalmoSoft]

Hello Mahmoud et All,

I added the new Find words which contains more than 3 e vowels sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I addeed the new Find words which first and last three letters are equals to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Change e letters to i in words sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Find words which contains all the vowels sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the new Find words vhich contains most consonants sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added the Checksumcolor sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added Esthetic numbers sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I addded First perfect square in base n with n unique digits sample to Rosetta Code

[CalmoSoft]

Hello Mahmoud et All,

I added new Strange numbers sample to Rosetta Code

[Mansour Ayouni]

Hello Gal,

Just correct this ("Strange" and not "Nice").

Best,

Mansour

--

---
You received this message because you are subscribed to the Google Groups "The Ring Programming Language" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ring-lang+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/ring-lang/50f444bf-7ca7-4725-938c-cf59139e0f99n%40googlegroups.com.