Re: List -> select method
Jacob Peck <[email protected]> Thu, 25 Oct 2012 08:23:02 -0400
| Newsgroups | gmane.comp.lang.io |
|---|---|
| Message-ID | <[email protected]> |
--------------030803080308010207000109
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
From Io:
Io> List getSlot("select")
==> # /home/peckj/repos/io/libs/iovm/io/A0_List.io:80
method(
call delegateToMethod(self clone, "selectInPlace")
)
Io> List getSlot("selectInPlace")
==> # /home/peckj/repos/io/libs/iovm/io/A0_List.io:31
method(
context := Object clone prependProto(call sender)
if(call sender hasLocalSlot("self"),
context self := call sender self
)
offset := 0
argCount := call argCount
if(argCount == 0, Exception raise("missing argument"))
if(argCount == 1) then(
body := call argAt(0)
size repeat(idx,
if(at(idx - offset) doMessage(body, context) not,
removeAt(idx - offset)
offset = offset + 1
)
)
) elseif(argCount == 2) then(
eName := call argAt(0) name
body := call argAt(1)
size repeat(idx,
context setSlot(eName, at(idx - offset))
if(context doMessage(body) not,
removeAt(idx - offset)
offset = offset + 1
)
)
) else(
iName := call argAt(0) name
eName := call argAt(1) name
body := call argAt(2)
size repeat(idx,
context setSlot(iName, idx)
context setSlot(eName, at(idx - offset))
if(context doMessage(body) not,
removeAt(idx - offset)
offset = offset + 1
)
)
)
self
)
Io> List getSlot("foreach")
==> List_foreach()
So, foreach is implemented in C (usually faster), and select is
implemented in Io. The short form (1 arg) of select is equivalent to
the following code:
List mySelect := method(filter,
context := Object clone prependProto(call sender)
if(call sender hasLocalSlot("self"),
context self := call sender self
)
offset := 0
size repeat(idx,
if(at(idx - offset) doMessage(filter, context) not,
removeAt(idx - offset)
offset = offset + 1
)
)
)
)
I'd say that foreach could be faster, but YMMV.
You could benchmark this...
Io> someNums := list(20, 30, 27, 37, 21, 22)
==> list(20, 30, 27, 37, 21, 22)
Io> Date secondsToRun(someNums select(isOdd))
==> 0.002304
Io> Date secondsToRun(out := list; someNums foreach(x, if(x isOdd, out
append(x))); out)
==> 0.000535
Looks like foreach is about 4.5 times faster, but takes more code. This
was done on my raspberry pi, so times will probably be much faster on a
desktop.
You could redefine select so that it uses foreach internally, if you want.
-->Jake
On 10/24/2012 9:09 PM, Duke Normandin wrote:
>
>
> @Steve
> @Jake
>
> Thank you, gentlemen!!
>
> The fastest and "cheapest" option has got my vote. :D
>
> BTW, is *foreach* as cheap and as fast as *select*?
>
> --
> Duke
> “Tolerance becomes a crime when applied to evil.”― Thomas Mann
>
>
--------------030803080308010207000109
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: 8bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
</head>
<body style="background-color: #fff;">
<span style="display:none"> </span>
<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="position:relative;">
<div id="ygrp-msg" style="z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->
<div id="ygrp-text" >
<p>
<div class="moz-cite-prefix">From Io:<br>
<br>
<tt>Io> List getSlot("select")</tt><tt><br>
</tt><tt>==> # /home/peckj/repos/io/libs/iovm/io/A0_List.io:80</tt><tt><br>
</tt><tt>method(</tt><tt><br>
</tt><tt> call delegateToMethod(self clone, "selectInPlace")</tt><tt><br>
</tt><tt>)</tt><tt><br>
</tt><tt>Io> List getSlot("selectInPlace")</tt><tt><br>
</tt><tt>==> # /home/peckj/repos/io/libs/iovm/io/A0_List.io:31</tt><tt><br>
</tt><tt>method(</tt><tt><br>
</tt><tt> context := Object clone prependProto(call sender)</tt><tt><br>
</tt><tt><br>
</tt><tt> if(call sender hasLocalSlot("self"),</tt><tt><br>
</tt><tt> context self := call sender self</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt><br>
</tt><tt> offset := 0</tt><tt><br>
</tt><tt> argCount := call argCount</tt><tt><br>
</tt><tt><br>
</tt><tt> if(argCount == 0, Exception raise("missing
argument"))</tt><tt><br>
</tt><tt> if(argCount == 1) then(</tt><tt><br>
</tt><tt> body := call argAt(0)</tt><tt><br>
</tt><tt> size repeat(idx,</tt><tt><br>
</tt><tt> if(at(idx - offset) doMessage(body, context)
not,</tt><tt><br>
</tt><tt> removeAt(idx - offset)</tt><tt><br>
</tt><tt> offset = offset + 1</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> ) elseif(argCount == 2) then(</tt><tt><br>
</tt><tt> eName := call argAt(0) name</tt><tt><br>
</tt><tt> body := call argAt(1)</tt><tt><br>
</tt><tt> size repeat(idx,</tt><tt><br>
</tt><tt> context setSlot(eName, at(idx - offset))</tt><tt><br>
</tt><tt> if(context doMessage(body) not,</tt><tt><br>
</tt><tt> removeAt(idx - offset)</tt><tt><br>
</tt><tt> offset = offset + 1</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> ) else(</tt><tt><br>
</tt><tt> iName := call argAt(0) name</tt><tt><br>
</tt><tt> eName := call argAt(1) name</tt><tt><br>
</tt><tt> body := call argAt(2)</tt><tt><br>
</tt><tt><br>
</tt><tt> size repeat(idx,</tt><tt><br>
</tt><tt> context setSlot(iName, idx)</tt><tt><br>
</tt><tt> context setSlot(eName, at(idx - offset))</tt><tt><br>
</tt><tt> if(context doMessage(body) not,</tt><tt><br>
</tt><tt> removeAt(idx - offset)</tt><tt><br>
</tt><tt> offset = offset + 1</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> )</tt><tt><br>
</tt><tt> self</tt><tt><br>
</tt><tt>)</tt><tt><br>
</tt><tt>Io> List getSlot("foreach")</tt><tt><br>
</tt><tt>==> List_foreach()</tt><br>
<br>
So, foreach is implemented in C (usually faster), and select is
implemented in Io. The short form (1 arg) of select is equivalent
to the following code:<br>
<br>
<tt>List mySelect := method(</tt><tt>filter</tt><tt>,</tt><tt><br>
</tt><tt> context := Object clone prependProto(call sender)</tt><tt><br>
</tt>
<tt><br>
</tt><tt>
</tt><tt> if(call sender hasLocalSlot("self"),</tt><tt><br>
</tt><tt>
</tt><tt> context self := call sender self</tt><tt><br>
</tt><tt>
</tt><tt> )</tt><tt><br>
</tt>
<tt><br>
</tt><tt>
</tt><tt> offset := 0</tt><tt><br>
</tt><tt>
</tt><tt> size repeat(idx,</tt><tt><br>
</tt><tt>
</tt><tt> if(at(idx - offset) doMessage(filter,
context) not,</tt><tt><br>
</tt><tt>
</tt><tt> removeAt(idx - offset)</tt><tt><br>
</tt><tt>
</tt><tt> offset = offset + 1</tt><tt><br>
</tt><tt>
</tt><tt> )</tt><tt><br>
</tt><tt>
</tt><tt> )</tt><tt><br>
</tt><tt>
</tt><tt> )<br>
)<br>
</tt><br>
I'd say that foreach could be faster, but YMMV.<br>
<br>
You could benchmark this...<br>
<br>
Io> someNums := list(20, 30, 27, 37, 21, 22)<br>
==> list(20, 30, 27, 37, 21, 22)<br>
Io> Date secondsToRun(someNums select(isOdd))<br>
==> 0.002304<br>
Io> Date secondsToRun(out := list; someNums foreach(x, if(x
isOdd, out append(x))); out)<br>
==> 0.000535<br>
<br>
Looks like foreach is about 4.5 times faster, but takes more
code. This was done on my raspberry pi, so times will probably be
much faster on a desktop.<br>
<br>
You could redefine select so that it uses foreach internally, if
you want.<br>
<br>
-->Jake<br>
<br>
On 10/24/2012 9:09 PM, Duke Normandin wrote:<br>
</div>
<blockquote cite="mid:[email protected]" type="cite">
<span> </span>
<div id="ygrp-text">
<p><br>
@Steve<br>
@Jake<br>
<br>
Thank you, gentlemen!!<br>
<br>
The fastest and "cheapest" option has got my vote. :D<br>
<br>
BTW, is *foreach* as cheap and as fast as *select*?<br>
<br>
-- <br>
Duke<br>
“Tolerance becomes a crime when applied to evil.”― Thomas
Mann<br>
</p>
</div>
<!-- end group email -->
</blockquote>
<br>
</p>
</div>
<!--~-|**|PrettyHtmlStart|**|-~-->
<div style="color: #fff; height: 0;">__._,_.___</div>
<table cellspacing=4px style="margin-top: 20px; margin-bottom: 10px;">
<tbody>
<tr>
<td style="font-size: 12px; font-family: arial; font-weight: bold; padding: 7px 5px 5px; color: #FFF; background-color: #F2F2F2; border: 1px solid #EAEAEA " >
<a style="text-decoration: none; color: #2D50FD" href="http://groups.yahoo.com/group/iolanguage/post;_ylc=X3oDMTJxYTk0ODkxBF9TAzk3MzU5NzE0BGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BG1zZ0lkAzEzMjc2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTM1MTE2Nzc5Mw--?act=reply&messageNum=13276">Reply via web post</a>
</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px; color: #FFF; background-color: #F2F2F2; border: 1px solid #EAEAEA; " >
<a href="mailto:[email protected]?subject=Re%3A%20%5BIo%5D%20List%20-%3E%20select%20method" style="text-decoration: none; color: #2D50FD;">
Reply to sender </a>
</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px; color: #FFF; background-color: #F2F2F2; border: 1px solid #EAEAEA; ">
<a href="mailto:[email protected]?subject=Re%3A%20%5BIo%5D%20List%20-%3E%20select%20method" style="text-decoration: none; color: #2D50FD">
Reply to group </a>
</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px; color: #FFF; background-color: #F2F2F2; border: 1px solid #EAEAEA; " >
<a href="http://groups.yahoo.com/group/iolanguage/post;_ylc=X3oDMTJldWR1b3RqBF9TAzk3MzU5NzE0BGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTM1MTE2Nzc5Mw--" style="text-decoration: none; color: #2D50FD">Start a New Topic</a>
</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px; color: #2D50FD; background-color: #F2F2F2; border: 1px solid #EAEAEA; " >
<a href="http://groups.yahoo.com/group/iolanguage/message/13272;_ylc=X3oDMTM2MjVoMWNuBF9TAzk3MzU5NzE0BGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BG1zZ0lkAzEzMjc2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTM1MTE2Nzc5MwR0cGNJZAMxMzI3Mg--" style="text-decoration: none; color: #2D50FD;">Messages in this topic</a>
(5)
</td>
</tr>
</tbody>
</table>
<!------- Start Nav Bar ------>
<!-- |**|begin egp html banner|**| -->
<!-- |**|end egp html banner|**| -->
<!-- |**|begin egp html banner|**| -->
<div id="ygrp-vital" style="background-color: #f2f2f2; font-family: Verdana; font-size: 10px; margin-bottom: 10px; padding: 10px;">
<span id="vithd" style="font-weight: bold; color: #333; text-transform: uppercase; ">Recent Activity:</span>
<ul style="list-style-type: none; margin: 0; padding: 0; display: inline;">
<li style="border-right: 1px solid #000; font-weight: 700; display: inline; padding: 0 5px; margin-left: 0;">
<span class="cat"><a href="http://groups.yahoo.com/group/iolanguage/members;_ylc=X3oDMTJmbTFlY2o2BF9TAzk3MzU5NzE0BGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzEzNTExNjc3OTM-?o=6" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">1</span>
</li>
</ul>
<div style="clear: both; padding-top: 2px; color: #1e66ae;">
<a href="http://groups.yahoo.com/group/iolanguage;_ylc=X3oDMTJlaGZyZmZnBF9TAzk3MzU5NzE0BGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTM1MTE2Nzc5Mw--" style="text-decoration: none;">Visit Your Group</a>
</div>
</div>
<div id="ft" style="font-family: Arial; font-size: 11px; margin-top: 5px; padding: 0 2px 0 0; clear: both;">
<a href="http://groups.yahoo.com/;_ylc=X3oDMTJkaHNrMWtxBF9TAzk3NDc2NTkwBGdycElkAzY2Nzc0NzYEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMzUxMTY3Nzkz" style="float: left;"><img src="http://l.yimg.com/a/i/us/yg/logo/us.gif" height="15" width="137" alt="Yahoo! Groups" style="border: 0;"/></a>
<div style="color: #747575; float: right;">Switch to: <a href="mailto:[email protected]?subject=Change Delivery Format: Traditional" style="text-decoration: none;">Text-Only</a>, <a href="mailto:[email protected]?subject=Email Delivery: Digest" class="margin-rt" style="text-decoration: none;">Daily Digest</a> • <a href="mailto:[email protected]?subject=Unsubscribe" style="text-decoration: none;">Unsubscribe</a> • <a href="http://docs.yahoo.com/info/terms/" style="text-decoration: none;">Terms of Use</a> • <a href="mailto:[email protected]?subject=Feedback on the redesigned individual mail v1" style="text-decoration: none;">Send us Feedback </a></div>
</div>
<!-- |**|end egp html banner|**| -->
</div> <!-- ygrp-msg -->
<!-- Sponsor -->
<!-- |**|begin egp html banner|**| -->
<div id="ygrp-sponsor" style="width:160px; float:right; clear:none; margin:0 0 25px 0; background: #fff;">
<!-- Start Recommendations -->
<div id="ygrp-reco">
</div>
<!-- End Recommendations -->
</div> <!-- |**|end egp html banner|**| -->
<div style="clear:both; color: #FFF; font-size:1px;">.</div>
</div>
<img src="http://geo.yahoo.com/serv?s=97359714/grpId=6677476/grpspId=1705006764/msgId=13276/stime=1351167793/nc1=3848640/nc2=4507179/nc3=5191955" width="1" height="1"> <br>
<div style="color: #fff; height: 0;">__,_._,___</div>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</body>
<!--~-|**|PrettyHtmlStart|**|-~-->
<head>
<style type="text/css">
<!--
#ygrp-mkp {
border: 1px solid #d8d8d8;
font-family: Arial;
margin: 10px 0;
padding: 0 10px;
}
#ygrp-mkp hr {
border: 1px solid #d8d8d8;
}
#ygrp-mkp #hd {
color: #628c2a;
font-size: 85%;
font-weight: 700;
line-height: 122%;
margin: 10px 0;
}
#ygrp-mkp #ads {
margin-bottom: 10px;
}
#ygrp-mkp .ad {
padding: 0 0;
}
#ygrp-mkp .ad p {
margin: 0;
}
#ygrp-mkp .ad a {
color: #0000ff;
text-decoration: none;
}
#ygrp-sponsor #ygrp-lc {
font-family: Arial;
}
#ygrp-sponsor #ygrp-lc #hd {
margin: 10px 0px;
font-weight: 700;
font-size: 78%;
line-height: 122%;
}
#ygrp-sponsor #ygrp-lc .ad {
margin-bottom: 10px;
padding: 0 0;
}
#actions {
font-family: Verdana;
font-size: 11px;
padding: 10px 0;
}
#activity {
background-color: #e0ecee;
float: left;
font-family: Verdana;
font-size: 10px;
padding: 10px;
}
#activity span {
font-weight: 700;
}
#activity span:first-child {
text-transform: uppercase;
}
#activity span a {
color: #5085b6;
text-decoration: none;
}
#activity span span {
color: #ff7900;
}
#activity span .underline {
text-decoration: underline;
}
.attach {
clear: both;
display: table;
font-family: Arial;
font-size: 12px;
padding: 10px 0;
width: 400px;
}
.attach div a {
text-decoration: none;
}
.attach img {
border: none;
padding-right: 5px;
}
.attach label {
display: block;
margin-bottom: 5px;
}
.attach label a {
text-decoration: none;
}
blockquote {
margin: 0 0 0 4px;
}
.bold {
font-family: Arial;
font-size: 13px;
font-weight: 700;
}
.bold a {
text-decoration: none;
}
dd.last p a {
font-family: Verdana;
font-weight: 700;
}
dd.last p span {
margin-right: 10px;
font-family: Verdana;
font-weight: 700;
}
dd.last p span.yshortcuts {
margin-right: 0;
}
div.attach-table div div a {
text-decoration: none;
}
div.attach-table {
width: 400px;
}
div.file-title a, div.file-title a:active, div.file-title a:hover, div.file-title a:visited {
text-decoration: none;
}
div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div.photo-title a:visited {
text-decoration: none;
}
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
font-family: Verdana;
font-size: 10px;
font-weight: normal;
}
.green {
color: #628c2a;
}
.MsoNormal {
margin: 0 0 0 0;
}
o {
font-size: 0;
}
#photos div {
float: left;
width: 72px;
}
#photos div div {
border: 1px solid #666666;
height: 62px;
overflow: hidden;
width: 62px;
}
#photos div label {
color: #666666;
font-size: 10px;
overflow: hidden;
text-align: center;
white-space: nowrap;
width: 64px;
}
#reco-category {
font-size: 77%;
}
#reco-desc {
font-size: 77%;
}
.replbq {
margin: 4px;
}
#ygrp-actbar div a:first-child {
/* border-right: 0px solid #000;*/
margin-right: 2px;
padding-right: 5px;
}
#ygrp-mlmsg {
font-size: 13px;
font-family: Arial, helvetica,clean, sans-serif;
*font-size: small;
*font: x-small;
}
#ygrp-mlmsg table {
font-size: inherit;
font: 100%;
}
#ygrp-mlmsg select, input, textarea {
font: 99% Arial, Helvetica, clean, sans-serif;
}
#ygrp-mlmsg pre, code {
font:115% monospace;
*font-size:100%;
}
#ygrp-mlmsg * {
line-height: 1.22em;
}
#ygrp-mlmsg #logo {
padding-bottom: 10px;
}
#ygrp-msg p a {
font-family: Verdana;
}
#ygrp-msg p#attach-count span {
color: #1E66AE;
font-weight: 700;
}
#ygrp-reco #reco-head {
color: #ff7900;
font-weight: 700;
}
#ygrp-reco {
margin-bottom: 20px;
padding: 0px;
}
#ygrp-sponsor #ov li a {
font-size: 130%;
text-decoration: none;
}
#ygrp-sponsor #ov li {
font-size: 77%;
list-style-type: square;
padding: 6px 0;
}
#ygrp-sponsor #ov ul {
margin: 0;
padding: 0 0 0 8px;
}
#ygrp-text {
font-family: Georgia;
}
#ygrp-text p {
margin: 0 0 1em 0;
}
#ygrp-text tt {
font-size: 120%;
}
#ygrp-vital ul li:last-child {
border-right: none !important;
}
-->
</style>
</head>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</html>
<!-- end group email -->
--------------030803080308010207000109--