Rosetta Code

Search a list: Difference between revisions

Page Discussion

Search a list (view source)

Revision as of 10:32, 31 August 2023

251 bytes removed ,  8 months ago
m
→‎{{header|RPL}}: one-size-fits-all solution
m (Move FutureBasic out of BASIC group)
m (→‎{{header|RPL}}: one-size-fits-all solution)
Line 3,748:
 
=={{header|RPL}}==
{{works with|HP|48G}}
{ "Zig" "Zag" "Zig" "Wally" "Ronald" "Bush" "Krusty" "Charlie" "Bush" "Bozo" } '<span style="color:green">HAYSTACK</span>' STO
≪ → up
≪ <span style="color:green">HAYSTACK</span> SWAP
'''IF''' POSup NOT '''THEN''' REVLIST '''END'''
LASTARG
'''ELSEIF''' SWAP POS '''THEN'''
"LOOKUP Error: LASTARG
Needle'''ELSE not found" DOERR'''
"LOOKDNLOOKHAY Error:▼
'''END'''▼
Needle not found" DOERR▼
≫ ≫ '<span style="color:blue">LOOKUP</span>' STO▼
▲ '''END'''
▲ ≫ ≫ '<span style="color:blue">LOOKUPLOOKHAY</span>' STO
 
"Bush" 1 <span style="color:blue">LOOKUPLOOKHAY</span>
"WashingtonBush" 0 <span style="color:blue">LOOKUPLOOKHAY</span>
{{out}}
<pre>
1: 6▼
</pre>
'''Extra credit'''
≪ <span style="color:green">HAYSTACK</span> SWAP
→ h ≪ { } h SIZE 1 FOR j h j GET + -1 STEP ≫
'''IF''' POS '''THEN'''
LASTARG
'''ELSE '''
▲ "LOOKDN Error:
▲ Needle not found" DOERR
'''END'''
≫ ≫ '<span style="color:blue">LOOKDN</span>' STO
 
"Bush" <span style="color:blue">LOOKDN</span>
{{out}}
<pre>
▲12: 6
1: 2
</pre>
Aerobar
1,150

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/349201"