Zugg Software :: View topic

Beginner Joined: 11 Nov 2000 Posts: 10 Location: USA

MASTER Joined: 28 Nov 2000 Posts: 4817 Location: USA

Set counter to zero. Loop through list checking each item to see if it matches. Increment counter whenever it does. Display counter.

LightBulb
All scripts untested unless otherwise noted

Beginner Joined: 11 Nov 2000 Posts: 10 Location: USA

This works for the above example, guess there isn't a pretty
solution for the general case

#var item1 0
#var item2 0
#var item3 0
#var list {Athos|Bertrand|Caesar|Bertrand|Caesar|Bertrand}
#var numlist %numitems(@list)
#var dlist %dups(@list)
#loop 1,@numlist {#if (%item(@dlist,1) = %item(@list,%{i})) {#add item1 1}}
#loop 1,@numlist {#if (%item(@dlist,2) = %item(@list,%{i})) {#add item2 1}}
#loop 1,@numlist {#if (%item(@dlist,3) = %item(@list,%{i})) {#add item3 1}}
#echo %item(@dlist,1) occurs @item1 times
#echo %item(@dlist,2) occurs @item2 times
#echo %item(@dlist,3) occurs @item3 times

Would be nice if you could code nest loops with counters.

I'm surprized zmud doesn't have basic arrays, something like

example: #show %replaceitem("Athos|Bertrand|Caesar","Zugg",2)
display: Athos|Zugg|Caesar

Zenkai -- SlothMUD III

GURU Joined: 23 Dec 2000 Posts: 4834 Location: USA

It's possible to use just two loops (in nested formation) and still be able to match any number of entries at one time.

li'l shmoe of Dragon's Gate MUD

GURU Joined: 10 Oct 2000 Posts: 4379 Location: USA

quote:

I'm surprized zmud doesn't have basic arrays, something like

example: #show %replaceitem("Athos|Bertrand|Caesar","Zugg",2)
display: Athos|Zugg|Caesar

You can do exatly that but you have the syntax wrong. It is:
#SHOW %replaceitem("Zugg", 2, "Athos|Bertrand|Caesar")

Kjata

GURU Joined: 14 Oct 2000 Posts: 556 Location: USA

quote:

Would be nice if you could code nest loops with counters.

You can! Just save the iterands of the outer loops to a temporary variable.




#VAR list {Athos|Bertrand|Caesar|Bertrand|Caesar|Bertrand}


#VAR dlist %dups(@list)


#FORALL @dlist {


   #VAR tempitem %i


   #VAR total 0


   #FORALL @list {


      #IF (%i = @tempitem) {#ADD total 1}


      }


   #SHOW @tempitem occurs @total times~.


   }

Troubadour

Beginner Joined: 11 Nov 2000 Posts: 10 Location: USA

Sweet! I can code a nested loop.
I should have thought of using my own counter. *kick self*

Here is the code I got to work:

 


#var list {Athos|Bertrand|Caesar|Bertrand|Caesar|Bertrand}


#var dlist %dups(@list)


#var numlist %numitems(@list)


#var numdlist %numitems(@dlist)


#echo List: @list


#var dlistcounter 0


#loop 1,@numdlist {#var item 0


  #add dlistcounter 1


  #loop 1,@numlist {#if (%item(@dlist,@dlistcounter) = %item(@list,%{i})) {#add item 1}}


  #echo %item(@dlist,@dlistcounter) occurs @item~x}

Output:

List: Athos|Bertrand|Caesar|Bertrand|Caesar|Bertrand
Athos occurs 1x
Bertrand occurs 3x
Caesar occurs 2x

Thanks Mattloftan and Troubadour! :)

To: Kajata

The replaceitem command is in new version? Very Cool. I'm using version 5.55 here because I mud from a lot different computers.

GURU Joined: 10 Oct 2000 Posts: 4379 Location: USA

Well, you could code your own version of %replaceitem in 5.55 by creating a copy of the list, looping thorught it and writing it item by item to the original list while replacing the specified one with what is needed.

Also, you should try looking at the %countlist function (by looking at the online helpfile it appears to be available in 5.55) which does exactly what you coded.

Kjata

Beginner Joined: 11 Nov 2000 Posts: 10 Location: USA

Thanks Kjata, I'll use the countlist function - it will simply my code a lot.

*sigh* That function is listed under database functions, and I don't use the database module so I skipped over it...