Jewels and stones: Difference between revisions

← Older edit

Jewels and stones (view source)

Revision as of 16:53, 14 March 2024

20,096 bytes added , 2 months ago

add ABC

Not a robot

2,114

edits

Revision as of 08:13, 13 September 2022 (view source) Bernie (talk \| contribs) No edit summary ← Older edit		Latest revision as of 16:53, 14 March 2024 (view source) Not a robot (talk \| contribs) (add ABC)
(19 intermediate revisions by 12 users not shown)
Line 41: </pre> =={{header\|~~8080~~360 Assembly}}== <syntaxhighlight lang="360asm">* Jewels and stones - 24/04/2023 JEWELS CSECT USING JEWELS,R13 base register B 72(R15) skip savearea DC 17F'0' savearea SAVE (14,12) save previous context ST R13,4(R15) link backward ST R15,8(R13) link forward LR R13,R15 set addressability LA R7,EX1 @ex(1,1) LA R6,1 i=1 DO WHILE=(CH,R6,LE,N) do i=1 to n MVC CSTO,0(R7) csto=ex(i,1) MVC CJEW,16(R7) cjew=ex(i,2) BAL R14,COUNT r0=count(csto,cjew) LR R1,R0 count XDECO R1,XDEC edit count MVC PG(6),XDEC+6 output count XPRNT PG,L'PG print buffer LA R7,32(R7) @ex+=32 LA R6,1(R6) i++ ENDDO , enddo i FIN L R13,4(0,R13) restore previous savearea pointer RETURN (14,12),RC=0 restore registers from calling save * COUNT CNOP 0,4 count(csto,cjew) ------------------- STM R2,R14,COUNTSA save context MVC CC,CSTO cc=csto BAL R14,LENGTH call length(csto) STH R0,LCSTO lcsto=length(csto) MVC CC,CJEW cc=cjew BAL R14,LENGTH call length(cjew) STH R0,LCJEW lcjew=length(cjew) XR R3,R3 ret=0 LA R6,1 i=1 DO WHILE=(CH,R6,LE,LCSTO) do i=1 to length(csto) LA R2,CSTO-1 @csto-1 AR R2,R6 @csto-1+i MVC C,0(R2) c=substr(csto,i,1) SR R1,R1 k=0 ....index(cjew,c)........... LA R7,1 j=1 \| DO WHILE=(CH,R7,LE,LCJEW) do j=1 to length(cjew) \| LA R9,CJEW-1 @cjew-1 \| AR R9,R7 @cjew-1+j \| IF CLC,0(1,R9),EQ,C THEN if substr(cjew,j,1)=c then \| LR R1,R7 k=j \| ENDIF , endif \| LA R7,1(R7) j++ \| ENDDO , enddo j ........................ IF LTR,R1,NZ,R1 THEN if index(cjew,c)<>0 then LA R3,1(R3) ret=ret+1 ENDIF , endif LA R6,1(R6) i++ ENDDO , enddo i LR R0,R3 return value ret LM R2,R14,COUNTSA restore context BR R14 return COUNTSA DS 14A context store -- end count --------- * LENGTH CNOP 0,4 length(cc) ------------------------- STM R2,R14,LENGTSA save context LA R10,0 l=0 LA R9,CC @cc LA R8,1 k=1 DO WHILE=(C,R8,LE,=A(16)) do k=1 to 16 MVC C,0(R9) c=subsctr(cc,k,1) IF CLC,C,NE,=C' ' THEN if c<>' ' then LA R10,1(R10) l=l+1 ELSE , else B LEAVEK leave k ENDIF , endif LA R9,1(R9) @cc++ LA R8,1(R8) k++ ENDDO , enddo k LEAVEK LR R0,R10 set return value LM R2,R14,LENGTSA restore context BR R14 return LENGTSA DS 14A context store -- end length -------- * N DC H'2' n EX1 DC CL16'aAAbbbb' stones(1) DC CL16'aA' jewels(1) EX2 DC CL16'ZZ' stones(2) DC CL16'z' jewels(2) CSTO DS CL16 csto CJEW DS CL16 cjew LCSTO DS H length of csto LCJEW DS H length of cjew CC DS CL16 cc C DS CL1 c PG DC CL80' ' buffer XDEC DS CL12 temp for xdeco REGEQU END JEWELS</syntaxhighlight> {{out}} <pre> 3 0 </pre> =={{header\|8080 Assembly}}== <syntaxhighlight lang="8080asm"> org 100h jmp demo Line 110 ⟶ 210: <pre>3</pre> =={{header\|8086 Assembly}}== Line 172 ⟶ 271: <pre>3</pre> =={{header\|AArch64 Assembly}}== {{works with\|as\|Raspberry Pi 3B version Buster 64 bits <br> or android 64 bits with application Termux }} <syntaxhighlight lang AArch64 Assembly> /* ARM assembly AARCH64 Raspberry PI 3B / / program jewels64.s / /**********************************/ / Constantes / /**********************************/ / for this file see task include a file in language AArch64 assembly/ .include "../includeConstantesARM64.inc" /**********************************/ / Initialized data / /*********************************/ .data szMessResult: .asciz "Result: " szStone1: .asciz "aAAbbbb" szJewels1: .asciz "aA" szStone2: .asciz "ZZ" szJewels2: .asciz "z" szCarriageReturn: .asciz "\n" szMessStart: .asciz "Program 64 bits start.\n" /*********************************/ / UnInitialized data / /*********************************/ .bss sZoneConv: .skip 24 /*********************************/ / code section / /*********************************/ .text .global main main: // entry of program ldr x0,qAdrszMessStart bl affichageMess ldr x0,qAdrszStone1 ldr x1,qAdrszJewels1 bl countJewels ldr x0,qAdrszStone2 ldr x1,qAdrszJewels2 bl countJewels 100: // standard end of the program mov x0, #0 // return code mov x8, #EXIT // request to exit program svc 0 // perform the system call qAdrszStone1: .quad szStone1 qAdrszJewels1: .quad szJewels1 qAdrszStone2: .quad szStone2 qAdrszJewels2: .quad szJewels2 qAdrsZoneConv: .quad sZoneConv qAdrszMessResult: .quad szMessResult qAdrszCarriageReturn: .quad szCarriageReturn qAdrszMessStart: .quad szMessStart /************************************************/ / count jewels in stone / /*************************************************/ / r0 contains stone address / / r1 contains jewels address / / r0 return jewels count / countJewels: stp x1,lr,[sp,-16]! stp x2,x3,[sp,-16]! stp x4,x5,[sp,-16]! stp x6,x7,[sp,-16]! mov x4,#0 // counter mov x3,#0 // index stone 1: ldrb w6,[x0,x3] // load byte of stone cmp x6,#0 // end stone ? beq 3f mov x5,#0 // index jewels 2: ldrb w2,[x1,x5] // load byte of jewels cmp x2,#0 // end jewels ? cinc x3,x3,eq // yes -> increment index stone beq 1b // and loop cmp x6,x2 // compare byte cinc x5,x5,ne // not equal -> increment jewels index bne 2b // and loop add x4,x4,#1 // else increment counter add x3,x3,#1 // incremente index stone b 1b // and loop 3: // result display mov x0,x4 ldr x1,qAdrsZoneConv bl conversion10 ldr x0,qAdrszMessResult bl affichageMess ldr x0,qAdrsZoneConv bl affichageMess ldr x0,qAdrszCarriageReturn bl affichageMess mov x0,x4 100: ldp x6,x7,[sp],16 ldp x4,x5,[sp],16 ldp x2,x3,[sp],16 ldp x1,lr,[sp],16 ret /*************************************************/ / ROUTINES INCLUDE / /*************************************************/ / for this file see task include a file in language AArch64 assembly/ .include "../includeARM64.inc" </syntaxhighlight> {{Out}} <pre> Program 64 bits start. Result: 3 Result: 0 </pre> =={{header\|ABC}}== <syntaxhighlight lang="abc">HOW TO RETURN stones count.in jewels: PUT 0 IN count FOR stone IN stones: IF stone in jewels: PUT count+1 IN count RETURN count WRITE "aAAbbbb" count.in "aA"/ WRITE "ZZ" count.in "z"/</syntaxhighlight> {{out}} <pre>3 0</pre> =={{header\|Ada}}== Line 412 ⟶ 640: {{output}} <syntaxhighlight lang="applescript">6</syntaxhighlight> =={{header\|ARM Assembly}}== {{works with\|as\|Raspberry Pi <br> or android 32 bits with application Termux}} <syntaxhighlight lang ARM Assembly> / ARM assembly Raspberry PI / / program jewels.s / /**********************************/ / Constantes / /**********************************/ / for this file see task include a file in language ARM assembly/ .include "../constantes.inc" /**********************************/ / Initialized data / /*********************************/ .data szMessResult: .asciz "Result: " szStone1: .asciz "aAAbbbb" szJewels1: .asciz "aA" szStone2: .asciz "ZZ" szJewels2: .asciz "z" szCarriageReturn: .asciz "\n" szMessStart: .asciz "Program 32 bits start.\n" /*********************************/ / UnInitialized data / /*********************************/ .bss sZoneConv: .skip 24 /*********************************/ / code section / /*********************************/ .text .global main main: @ entry of program ldr r0,iAdrszMessStart bl affichageMess ldr r0,iAdrszStone1 ldr r1,iAdrszJewels1 bl countJewels ldr r0,iAdrszStone2 ldr r1,iAdrszJewels2 bl countJewels 100: @ standard end of the program mov r0, #0 @ return code mov r7, #EXIT @ request to exit program svc 0 @ perform the system call iAdrszStone1: .int szStone1 iAdrszJewels1: .int szJewels1 iAdrszStone2: .int szStone2 iAdrszJewels2: .int szJewels2 iAdrsZoneConv: .int sZoneConv iAdrszMessResult: .int szMessResult iAdrszCarriageReturn: .int szCarriageReturn iAdrszMessStart: .int szMessStart /************************************************/ / count jewels in stone / /*************************************************/ / r0 contains stone address / / r1 contains jewels address / / r0 return jewels count / countJewels: push {r1-r6,lr} @ save registers mov r4,#0 @ counter mov r3,#0 @ index stone 1: ldrb r6,[r0,r3] @ load byte of stone cmp r6,#0 @ end stone ? beq 3f mov r5,#0 @ index jewels 2: ldrb r2,[r1,r5] @ load byte of jewels cmp r2,#0 @ end jewels ? addeq r3,r3,#1 @ yes -> increment index stone beq 1b @ and loop cmp r6,r2 @ compare byte addne r5,r5,#1 @ not equal -> increment jewels index bne 2b @ and loop add r4,r4,#1 @ else increment counter add r3,r3,#1 @ incremente index stone b 1b @ and loop 3: @ result display mov r0,r4 ldr r1,iAdrsZoneConv bl conversion10 ldr r0,iAdrszMessResult bl affichageMess ldr r0,iAdrsZoneConv bl affichageMess ldr r0,iAdrszCarriageReturn bl affichageMess mov r0,r4 100: pop {r1-r6,pc} /*************************************************/ / ROUTINES INCLUDE / /*************************************************/ / for this file see task include a file in language ARM assembly/ .include "../affichage.inc" </syntaxhighlight> {{Out}} with the file unixdict.txt <pre> Program 32 bits start. Result: 3 Result: 0 </pre> =={{header\|Arturo}}== <syntaxhighlight lang="rebol">count: function [jewels,stones][ Line 457 ⟶ 795: =={{header\|BASIC}}== <syntaxhighlight lang="basic">10 READ N% 20 FOR A%=1 TO N% Line 480 ⟶ 817: {{out}} <pre>aAAbbbb in aA: 3 ZZZZ in z: 0</pre> ==={{header\|BASIC256}}=== <syntaxhighlight lang="~~basic256~~vb"> function contar_joyas(piedras, joyas) cont = 0 Line 501 ⟶ 837: </syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ~~<pre>~~ ~~Igual que la entrada de FreeBASIC.~~ ==={{header\|Chipmunk Basic}}=== ~~</pre>~~ {{works with\|Chipmunk Basic\|3.6.4}} <syntaxhighlight lang="vb">100 cls 110 print contjoyas("aAAbbbb","aA") 120 print contjoyas("ZZ","z") 130 print contjoyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") 140 print contjoyas("AB","") 150 end 160 sub contjoyas(piedras$,joyas$) 180 sgte = 0 190 for i = 1 to len(piedras$) 200 bc = instr(joyas$,mid$(piedras$,i,1)) 210 if bc <> 0 then sgte = sgte+1 220 next i 230 contjoyas = sgte 240 end sub</syntaxhighlight> ==={{header\|FreeBASIC}}=== <syntaxhighlight lang="vb"> function contar_joyas(piedras as string, joyas as string) as integer dim as integer bc, cont = 0 for i as integer = 1 to len(piedras) bc = instr(1, joyas, mid(piedras, i, 1)) if bc <> 0 then cont += 1 next i contar_joyas = cont end function print contar_joyas("aAAbbbb", "aA") print contar_joyas("ZZ", "z") print contar_joyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", _ "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") print contar_joyas("AB", "") </syntaxhighlight> {{out}} <pre>3 0 53 0</pre> ==={{header\|FutureBasic}}=== <syntaxhighlight lang="futurebasic">window 1, @"Jewels and Stones" local fn JewelsAndStones( jewels as CFStringRef, stones as CFStringRef ) as long long index, count = 0 for index = 0 to len(stones) - 1 if ( fn StringContainsString( jewels, mid(stones,index,1) ) ) then count++ next end fn = count print fn JewelsAndStones( @"aA", @"aAAbbbb" ) print fn JewelsAndStones( @"z", @"ZZ" ) HandleEvents</syntaxhighlight> {{out}} <pre>3 0</pre> ==={{header\|GW-BASIC}}=== {{works with\|QBasic}} {{works with\|BASICA}} {{works with\|Chipmunk Basic}} {{works with\|GW-BASIC}} {{works with\|MSX BASIC}} {{works with\|Just BASIC}} {{works with\|Liberty BASIC}} {{works with\|Run BASIC}} <syntaxhighlight lang="qbasic">100 CLS 110 piedras$ = "aAAbbbb" 120 joyas$ = "aA" 130 GOSUB 240: PRINT cntjoyas 140 piedras$ = "ZZ" 150 joyas$ = "z" 160 GOSUB 240: PRINT cntjoyas 170 piedras$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz" 180 joyas$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz" 190 GOSUB 240: PRINT cntjoyas 200 piedras$ = "AB" 210 joyas$ = "" 220 GOSUB 240: PRINT cntjoyas 230 END 240 sgte = 0 250 FOR i = 1 TO LEN(piedras$) 260 bc = INSTR(joyas$, MID$(piedras$, i, 1)) 270 IF bc <> 0 THEN sgte = sgte + 1 280 NEXT i 290 cntjoyas = sgte 300 RETURN 310 END</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|MSX Basic}}=== The [[#GW-BASIC\|GW-BASIC]] solution works without any changes. ==={{header\|QBasic}}=== {{works with\|QBasic\|1.1}} {{works with\|QuickBasic\|4.5}} <syntaxhighlight lang="qbasic">FUNCTION contarjoyas (piedras$, joyas$) cont = 0 FOR i = 1 TO LEN(piedras$) bc = INSTR(1, joyas$, MID$(piedras$, i, 1)) IF bc <> 0 THEN cont = cont + 1 NEXT i contarjoyas = cont END FUNCTION PRINT contarjoyas("aAAbbbb", "aA") PRINT contarjoyas("ZZ", "z") PRINT contarjoyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") PRINT contarjoyas("AB", "") END</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|Run BASIC}}=== {{works with\|Just BASIC}} {{works with\|Liberty BASIC}} <syntaxhighlight lang="vb">sub contar_joyas(piedras$, joyas$) local count, i, bc cont = 0 for i = 1 to len(piedras$) bc = instr(joyas$, mid$(piedras$, i, 1)) if bc <> 0 cont = cont + 1 next i return cont end sub print contar_joyas("aAAbbbb", "aA") print contar_joyas("ZZ", "z") print contar_joyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") print contar_joyas("AB", "") end</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|True BASIC}}=== <syntaxhighlight lang="qbasic">FUNCTION contarjoyas(piedras$, joyas$) LET c = 0 FOR i = 1 TO LEN(piedras$) LET bc = POS(joyas$,(piedras$)[i:i+1-1],1) IF bc <> 0 THEN LET c = c + 1 NEXT i LET contarjoyas = c END FUNCTION PRINT contarjoyas("aAAbbbb", "aA") PRINT contarjoyas("ZZ", "z") PRINT contarjoyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") PRINT contarjoyas("AB", "") END</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|VBA}}=== {{trans\|Phix}}<syntaxhighlight lang="vb">Function count_jewels(stones As String, jewels As String) As Integer Dim res As Integer: res = 0 For i = 1 To Len(stones) res = res - (InStr(1, jewels, Mid(stones, i, 1), vbBinaryCompare) <> 0) Next i count_jewels = res End Function Public Sub main() Debug.Print count_jewels("aAAbbbb", "aA") Debug.Print count_jewels("ZZ", "z") End Sub</syntaxhighlight>{{out}} <pre> 3 0 </pre> ==={{header\|Visual Basic .NET}}=== {{trans\|C#}} <syntaxhighlight lang="vbnet">Module Module1 Function Count(stones As String, jewels As String) As Integer Dim bag = jewels.ToHashSet Return stones.Count(AddressOf bag.Contains) End Function Sub Main() Console.WriteLine(Count("aAAbbbb", "Aa")) Console.WriteLine(Count("ZZ", "z")) End Sub End Module</syntaxhighlight> {{out}} <pre>3 0</pre> ==={{header\|Yabasic}}=== <syntaxhighlight lang="vb">print contar_joyas("aAAbbbb", "aA") print contar_joyas("ZZ", "z") print contar_joyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz") print contar_joyas("AB", "") end sub contar_joyas(piedras$, joyas$) local count, i, bc cont = 0 for i = 1 to len(piedras$) bc = instr(joyas$, mid$(piedras$, i, 1)) if bc <> 0 cont = cont + 1 next i return cont end sub</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> =={{header\|BCPL}}== Line 729 ⟶ 1,274: <pre>3 0</pre> =={{header\|Delphi}}== {{works with\|Delphi\|6.0}} {{libheader\|classes, SysUtils,StdCtrls}} <syntaxhighlight lang="Delphi"> function CommonLetters(S1,S2: string): integer; {Count the number of letters in S1 are found in S2} var I, J: integer; begin Result:=0; for I:=1 to Length(S1) do for J:=1 to Length(S2) do if S1[I]=S2[J] then Inc(Result); end; procedure ShowJewelsStones(Memo: TMemo; Jewels,Stones: string); {Show one Jewels-Stones comparison} begin Memo.Lines.Add(Jewels+' '+Stones+' '+IntToStr(CommonLetters(Jewels,Stones))); end; procedure TestJewelsStones(Memo: TMemo); begin ShowJewelsStones(Memo,'aAAbbbb', 'aA'); ShowJewelsStones(Memo,'ZZ','z'); end; </syntaxhighlight> {{out}} <pre> aAAbbbb aA 3 ZZ z 0 </pre> =={{header\|Draco}}== Line 778 ⟶ 1,361: <pre>3 0</pre> =={{header\|EasyLang}}== <syntaxhighlight lang="easylang"> func count stones$ jewels$ . len d[] 65536 for c$ in strchars jewels$ d[strcode c$] = 1 . for c$ in strchars stones$ if d[strcode c$] = 1 cnt += 1 . . return cnt . print count "aAAbbbb" "aA" print count "ZZ" "z" </syntaxhighlight> =={{header\|F_Sharp\|F#}}== Line 821 ⟶ 1,424: 0 4 -- 1 is found once, "Boo" is found once, and 3 is found twice = 4 things in the search list were found in the target list ~~</pre>~~ ~~=={{header\|FreeBASIC}}==~~ ~~<syntaxhighlight lang="freebasic">~~ ~~function contar_joyas(piedras as string, joyas as string) as integer~~ ~~dim as integer bc, cont: cont = 0~~ ~~for i as integer = 1 to len(piedras)~~ ~~bc = instr(1, joyas, mid(piedras, i, 1))~~ ~~if bc <> 0 then cont += 1~~ ~~next i~~ ~~contar_joyas = cont~~ ~~end function~~ ~~print contar_joyas("aAAbbbb", "aA")~~ ~~print contar_joyas("ZZ", "z")~~ ~~print contar_joyas("ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz", _~~ ~~"ABCDEFGHIJKLMNOPQRSTUVWXYZ@abcdefghijklmnopqrstuvwxyz")~~ ~~print contar_joyas("AB", "")~~ ~~</syntaxhighlight>~~ ~~{{out}}~~ ~~<pre>~~ 3 0 53 0 ~~</pre>~~ ~~=={{header\|FutureBasic}}==~~ ~~<syntaxhighlight lang="futurebasic">window 1, @"Jewels and Stones"~~ ~~local fn JewelsAndStones( jewels as CFStringRef, stones as CFStringRef ) as long~~ ~~long index, count = 0~~ ~~for index = 0 to len(stones) - 1~~ ~~if ( fn StringContainsString( jewels, mid(stones,index,1) ) ) then count++~~ ~~next~~ ~~end fn = count~~ ~~print fn JewelsAndStones( @"aA", @"aAAbbbb" )~~ ~~print fn JewelsAndStones( @"z", @"ZZ" )~~ ~~HandleEvents</syntaxhighlight>~~ ~~{{out}}~~ ~~<pre>~~ 3 0 </pre> Line 979 ⟶ 1,536: </syntaxhighlight> A simpler implementation, which satisfies the task requirements but does not explicitly ignore non-letters, would be: <syntaxhighlight lang=J>jewels=: +/@e.</syntaxhighlight> =={{header\|Java}}== Line 1,029 ⟶ 1,590: {{Out}} <pre>[3, 0]</pre> =={{header\|Joy}}== <syntaxhighlight lang="joy">DEFINE jewels == [in 1 0 choice +] cons 0 swap fold. "aAAbbbb" "aA" jewels. "ZZ" "z" jewels.</syntaxhighlight> {{out}} <pre>3 0</pre> =={{header\|jq}}== Line 1,034 ⟶ 1,604: [$stones\|split("") as $s\|$jewels\|split("") as $j\|$s[]\| select(. as $c\|$j\|contains([$c]))]\|length'</syntaxhighlight> {{out}} ~~{{Out}}~~ <pre>3</pre> Line 1,054 ⟶ 1,623: <pre>Jewels.count("aAAbbbb", "aA") = 3 Jewels.count("ZZ", "z") = 0</pre> =={{header\|K}}== <syntaxhighlight lang="k">jewels: +/~^? jewels["aA";"aAAbbbb"]</syntaxhighlight> {{out}} <pre>3</pre> =={{header\|Kotlin}}== <syntaxhighlight lang="~~scala~~kotlin">// Version 1.2.40 fun countJewels(s: String, j: String) = s.count { it in j } Line 1,064 ⟶ 1,640: println(countJewels("ZZ", "z")) }</syntaxhighlight> {{out}} ~~{{output}}~~ <pre> 3 Line 1,106 ⟶ 1,681: print(count_jewels("aAAbbbb", "aA")) print(count_jewels("ZZ", "z"))</syntaxhighlight> {{out}} <pre>3 0</pre> =={{header\|MACRO-11}}== <syntaxhighlight lang="macro11"> .TITLE JWLSTN .MCALL .TTYOUT,.EXIT JWLSTN::JMP DEMO ; COUNT JEWELS R1 IN STONES R0, ANSWER IN R2 COUNT: MOV #200,R2 ; CLEAR JEWELS MOV #6$,R3 1$: CLR (R3)+ SOB R2,1$ BR 3$ 2$: MOVB #1,6$(R2) ; MARK JEWELS 3$: MOVB (R1)+,R2 BNE 2$ BR 5$ 4$: MOVB 6$(R1),R3 ; COUNT JEWELS IN STONES ADD R3,R2 5$: MOVB (R0)+,R1 BNE 4$ RTS PC 6$: .BLKB 400 DEMO: MOV #TESTS,R4 1$: MOV (R4)+,R1 ; READ TEST CASE MOV (R4)+,R0 BEQ 2$ ; DONE? JSR PC,COUNT ; COUNT MOV R2,R0 ; DISPLAY RESULT ADD #60,R0 .TTYOUT MOV #15,R0 .TTYOUT MOV #12,R0 .TTYOUT BR 1$ ; NEXT 2$: .EXIT TESTS: .WORD 1$,2$,3$,4$,0,0 1$: .ASCIZ /aA/ 2$: .ASCIZ /aAAbbbb/ 3$: .ASCIZ /z/ 4$: .ASCIZ /ZZ/ .END JWLSTN</syntaxhighlight> {{out}} <pre>3 Line 1,252 ⟶ 1,874: 0 </pre> =={{header\|OCaml}}== <syntaxhighlight lang="ocaml">let jewels j s = String.(fold_left (fun n c -> if contains j c then succ n else n) 0 s)</syntaxhighlight> =={{header\|Perl}}== Line 1,669 ⟶ 2,295: 0 </pre> =={{header\|Refal}}== <syntaxhighlight lang="refal">$ENTRY Go { = <Prout <Jewels ('aAAbbb') ('aA')>> <Prout <Jewels ('ZZ') ('z')>>; }; Jewels { () (e.Jewels) = 0; (s.Stone e.Stones) (e.Jewels), e.Jewels: e.X s.Stone e.Y = <+ 1 <Jewels (e.Stones) (e.Jewels)>>; (s.Stone e.Stones) (e.Jewels) = <Jewels (e.Stones) (e.Jewels)>; };</syntaxhighlight> {{out}} <pre>3 0</pre> =={{header\|REXX}}== Line 1,675 ⟶ 2,319: say count('aAAbbbb', "aA") say count('ZZ' , "z" ) exit /stick a fork in it, we're all done. / /──────────────────────────────────────────────────────────────────────────/ /──────────────────────────────────────────────────────────────────────────────────────/ count: procedure ~~count: procedure; parse arg stones,jewels /obtain the two strings specified. /~~ parse arg stones,jewels /obtain the two strings specified. / ~~#= 0 /initialize the variable # to zero./~~ number= 0 do ~~j=1~~ ~~for~~ ~~length(stones)~~ /~~scan~~initialize ~~STONES~~number ~~for~~ ~~matching~~to ~~JEWELS~~ ~~chars~~zero./ do j=1 for length(stones) /scan STONES for matching JEWELS chars/ ~~x= substr(stones, j, 1) /obtain a character of the STONES var./~~ x= substr(stones, j, 1) /obtain a character of the STONES var./ ~~if datatype(x, 'M') then if pos(x, jewels)\==0 then #= # + 1~~ if datatype(x, 'M') then if pos(x, jewels)\==0 then number=number + 1 ~~end /j/ / [↑] if a letter and a match, bump #/~~ end /j/ ~~return~~ # / [↑] if a letter and a match, ~~/return the~~bump number ~~of common letters.~~ /~~</syntaxhighlight>~~ return number /return the number of common letters. / </syntaxhighlight> {{out\|output\|text=  when using the default inputs:}} <pre>3 Line 1,711 ⟶ 2,357: <pre>3 0</pre> =={{header\|RPL}}== {{works with\|Halcyon Calc\|4.2.7}} ≪ → stones jewels ≪ 0 1 jewels SIZE FOR j stones jewels j j SUB WHILE DUP2 POS REPEAT LAST 1 + ROT SWAP OVER SIZE SUB SWAP ROT 1 + ROT ROT END DROP2 NEXT ≫ ≫ 'JnS' STO "aAAbbbb" "aA" JnS "ZZ" "z" JnS {{out}} <pre> 2:3 1:0 </pre> =={{header\|Ruby}}== Line 1,744 ⟶ 2,412: }</syntaxhighlight> {{Out}}See it in running in your browser by [https://scalafiddle.io/sf/Cz1HXAT/0 ScalaFiddle (JavaScript)] or by [https://scastie.scala-lang.org/7ZCCN5hISRuDqLWTKVBHow Scastie (JVM)]. =={{header\|SETL}}== <syntaxhighlight lang="setl">program count_jewels; show("aA", "aAAbbbb"); show("z", "ZZ"); proc show(jewels, stones); print("'" + jewels + "' in '" + stones + "': " + count(jewels, stones)); end proc; proc count(jewels, stones); jewels := {j : j in jewels}; return #[s : s in stones \| s in jewels]; end proc; end program;</syntaxhighlight> {{out}} <pre>'aA' in 'aAAbbbb': 3 'z' in 'ZZ': 0</pre> =={{header\|Sidef}}== Line 1,898 ⟶ 2,584: </pre> =={{header\|~~VBA~~V (Vlang)}}== ~~{{trans\|Phix}}<syntaxhighlight lang="vb">Function count_jewels(stones As String, jewels As String) As Integer~~ ~~Dim res As Integer: res = 0~~ ~~For i = 1 To Len(stones)~~ ~~res = res - (InStr(1, jewels, Mid(stones, i, 1), vbBinaryCompare) <> 0)~~ ~~Next i~~ ~~count_jewels = res~~ ~~End Function~~ ~~Public Sub main()~~ ~~Debug.Print count_jewels("aAAbbbb", "aA")~~ ~~Debug.Print count_jewels("ZZ", "z")~~ ~~End Sub</syntaxhighlight>{{out}}~~ ~~<pre> 3~~ ~~0 </pre>~~ ~~=={{header\|Visual Basic .NET}}==~~ ~~{{trans\|C#}}~~ ~~<syntaxhighlight lang="vbnet">Module Module1~~ ~~Function Count(stones As String, jewels As String) As Integer~~ ~~Dim bag = jewels.ToHashSet~~ ~~Return stones.Count(AddressOf bag.Contains)~~ ~~End Function~~ ~~Sub Main()~~ ~~Console.WriteLine(Count("aAAbbbb", "Aa"))~~ ~~Console.WriteLine(Count("ZZ", "z"))~~ ~~End Sub~~ ~~End Module</syntaxhighlight>~~ ~~{{out}}~~ ~~<pre>3~~ ~~0</pre>~~ ~~=={{header\|Vlang}}==~~ {{trans\|Go}} <syntaxhighlight lang="v (vlang)">fn js(stones string, jewels string) int { mut n := 0 for b in stones.bytes() { Line 1,955 ⟶ 2,607: =={{header\|Wren}}== {{trans\|Kotlin}} <syntaxhighlight lang="~~ecmascript~~wren">var countJewels = Fn.new { \|s, j\| s.count { \|c\| j.contains(c) } } System.print(countJewels.call("aAAbbbb", "aA"))