您可能知道，最近出现了多个 可爱的 吉米 挑战 。在这些挑战中，您受到了我们挚爱的朋友的杂技技巧的挑战。现在，我们为您带来了另一个挑战。今天，您将确定吉米斯的不同类型！

说明

吉米斯有三种变体：矮人，杂技演员和健美运动员。

This is dwarf Jimmy:               o

This is acrobat Jimmy:            /o\

This is bodybuilder Jimmy:       /-o-\

这些吉米人都是好朋友，他们喜欢彼此站在同一条线上。给定一个Jimmy场景，您的任务是：

  o  /o\       o   /-o-\/-o-\  o          /o\

分别输出线上的矮人，杂技演员和健美运动员的数量。

挑战

• 如上例所示，以任何合理的形式将输入作为Jimmy场景。

  1. 输入字符串应为一行，并且可以包含三种类型的Jimmys和可选的空格。

  2. 该字符串不一定包含所有Jimmy变体或空白。

  3. 该字符串将不包含任何不在中的字符o/\ -。

  4. 吉米品种的任何组合都是可能的。这意味着相同或不同类型的吉米可以彼此相邻。您必须考虑到这一点。

  5. 前导和尾随空格是可选的，并且绝不是必需的-您的程序应考虑带有或不带有前导和/或尾随空格的字符串。

  6. 该字符串应仅包含有效的Jimmys和空格。例如，---///---不允许使用，因为它不是有效的Jimmy序列。

• 输出三个数字：场景中的矮人，杂技演员和健美运动员的数量（按顺序排列）。

  1. 这可能是以空格分隔的整数形式输出到控制台，也可能是函数作为某种容器（即数组类型）的返回值。

  2. 必须按照此规则上方最上方的提示对任何格式的输出进行排序。

• 适用标准规则和漏洞。

测试用例

     /-o-\           /-o-\     o/o\  /-o-\       /-o-\                /-o-\
OUTPUT: 1 1 5


      o o               /o\    o o      o                    /o\             /o\
OUTPUT: 5 3 0


 /-o-\     /-o-\            /-o-\/-o-\   o /o\/o\    /-o-\o /-o-\       /o\/-o-\
OUTPUT: 2 3 7


  /-o-\  o                 /-o-\               o/o\
OUTPUT: 2 1 2

如果您想要更多的测试用例，请使用此工具生成更多的随机测试用例。

计分

这是代码高尔夫球，因此以字节为单位的最低分数获胜。

您可以通过展开下面的小部件/片段来查看此帖子的页首横幅。为了使您的帖子包含在排名中，您需要一个# header text带有以下信息的标题（）：

• 语言名称（以逗号,或破折号结尾-），后跟...。

• 字节数，作为出现在标题中的最后一个数字。

例如，JavaScript (ES6), 72 bytes有效但Fortran, 143 bytes (8-bit)无效，因为字节数不是标头中的最后一个数字（您的答案将被识别为8个字节-请勿利用此字节）。

<!-- Run the snippet to see the leaderboard. Report any bugs to @xMikee1 on Github. -->    <iframe src="https://ozewski.github.io/ppcg-leaderboard/?id=188391" width="100%" height="100%" style="border:none;">Oops, your browser is too old to view this content! Please upgrade to a newer version of your browser that supports HTML5.</iframe><style>html,body{margin:0;padding:0;height:100%;overflow:hidden}</style>

果冻（（12？）13 字节

ċⱮ“-/o”H1¦ŻIṚ

一个接受字符列表的单子链接，该字符列表产生一个整数列表[ dwarves, acrobats, and body-builders]（Ṛ如果可以指定输出，则保存字节）

在线尝试！

怎么样？

所有吉米人都表现出一个o; 所有非矮人都显示/; 所有健美运动员都表现出两个-。将这些计数，将的计数减半-，然后进行减法以找到吉米计数：

ċⱮ“-/o”H1¦ŻIṚ - Link: list of characters
  “-/o”       - list of characters ['-', '/', 'o']
 Ɱ            - map across right with:
ċ             -   count occurrences   = [n('-'), n('/'), n('o')]
         ¦    - sparse application...
        1     - ...to indices: [1] -- i.e. n('-')
       H      - ...action: halve    = [n('-')/2, n('/'), n('o')]
          Ż   - prepend a zero =   [0, n('-')/2, n('/'), n('o')]
           I  - incremental differences
              -     = [n('-')/2, n('/')-n('-')/2, n('o')-n('/')]
            Ṛ - reverse
              -     = [n('o')-n('/'), n('/')-n('-')/2, n('-')/2]

Python 3.8（预发布），51字节

lambda s:((c:=s.count)('o')-c('/'),c('/o'),c('/-'))

在线尝试！

Python 2，50个字节

x,y,z=map(input().count,'o/-')
print x-y,y-z/2,z/2

在线尝试！

通过@xnor将lambda表达式转换为完整程序，从而获得-10个字节（删除了double-lambda嵌套的东西，而是使用赋值）

PowerShell，59 55字节

$c=,0*3
$args|sls '/?-?o'-a|% m*|% le*|%{++$c[$_-1]}
$c

在线尝试！

展开：

$counters=,0*3
$args|select-string '/?-?o'-AllMatches|% Matches|% Length|%{++$counters[$_-1]}
$counters

J，36 25字节

-11个字节感谢科尔！

2-/\0,~1 1 2%~1#.'o/-'=/]

在线尝试！

原始解决方案

J，36个字节

[:(-/@}:,-/@}.,{:)1 1 2%~1#.'o/-'=/]

在线尝试！

说明：

                            'o/-'=/] compare the input with each one of "o/-" characters
                                     / the result is a 3-row matrix /
                         1#.         add up each row to find the number of occurences
                                     of each character, the result is a vector of 3 items
                  1 1 2%~            divide the last item by 2 to find the number of 
                                     bodybuilder Jimmys
[:(              )                   use the result to construct the following vector:
               {:                    the last item
              ,                      appended to
         -/@}.                       the difference of the second and the third items
        ,                            appended to
   -/@}:                             the difference of the first and the second items

J会话示例：

a=:'  /-o-\  o                 /-o-\               o/o\'
   'o/-'=/a
0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0
0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
   1#.'o/-'=/a
5 3 4  
   1 1 2%~1#.'o/-'=/a
5 3 2
   (-/@}:,-/@}.,{:)1 1 2%~1#.'o/-'=/a
2 1 2

Excel为CSV，130字节

,=LEN(A3)-LEN(A4)
=SUBSTITUTE(A1,"-o",""),=(LEN(A2)-LEN(A3))/2
=SUBSTITUTE(A2,"/o",""),=(LEN(A1)-LEN(A2))/2
=SUBSTITUTE(A3,"o","")

首先在空格中插入输入,，另存为.csv，在Excel中打开。输出小矮人，杂技和健美的B1，B2和B3分别。

Excel，244个字节

=LEN(SUBSTITUTE(SUBSTITUTE(A1,"-o",""),"/o",""))-LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"-o",""),"/o",""),"o",""))&" "&(LEN(SUBSTITUTE(A1,"-o",""))-LEN(SUBSTITUTE(SUBSTITUTE(A1,"-o",""),"/o","")))/2&" "&(LEN(A1)-LEN(SUBSTITUTE(A1,"-o","")))/2

APL（Dyalog Unicode），20字节^SBCS

2-/2÷⍨@2+/'o/-x'∘.=⎕

在线尝试！

科特林 131 130 129 121 117个 97 96 88字节

fun String.j(b:Int=count{'-'==it}/2,a:Int=count{'/'==it})=listOf(count{'o'==it}-a,a-b,b)

在线尝试！

编辑-哇，低于100！我怀疑我是否可以进一步缩小，但只有时间才能证明...

编辑-发言太早，使用列表而不是字符串又丢弃了一个字节

编辑-减去8个字节，这要感谢AsoLeo建议使用扩展功能

视网膜，39 35字节

编辑： -4字节感谢@FryAmTheEggMan

^((o)|(/o.)|(/-o-.)| )*
$#2 $#3 $#4

在线尝试！

说明：

一个简单的替换阶段。它查找正则表达式的所有匹配项^((o)|(/o.)|(/-o-.)| )*（这将导致一个匹配项-整个字符串），并将其替换为第2、3和4组的捕获次数。以下是正则表达式的分解：

^((o)|(/o.)|(/-o-.)| )*
^                               start at the beginning of the string
 (                       )*     have any amount of Jimmy / spaces
     |       |         |        select one of:
  (o)                           capturing group 2 - dwarf
      (/o.)                   capturing group 3 - acrobat
              (/-o-.)         capturing group 4 - bodybuilder

我们也必须以^输入计数开头或结尾作为匹配项。在Retina的替换语法中，$n引用第n个捕获组，并且修饰符#计算其匹配的数量。

JavaScript，55个字节

使用一个正则表达式模式匹配搜索字符串o，o-或o-\; 使用每个匹配项的长度来确定索引，从而增加数组中的相应计数。

s=>s.replace(/o-?\\?/g,m=>a[m.length-1]++,a=[0,0,0])&&a

在线尝试！

Clojure，78个字节

(defn ?[s](def c #(count(re-seq % s)))[(-(c #"o")(c #"/"))(c #"/o")(c #"/-")])

在线尝试！

Wolfram语言（Mathematica），63个字节

Reverse@{a=(m=CharacterCounts@#)["-"]/2,b=m["/"]-a,m["o"]-a-b}&

在线尝试！

如果取消了无意义的订单要求，则为55个字节...

Python 3中，69个 66 60 56字节

-4个字节，感谢@MaartenFabré

g=input().count
b,c=g('/'),g('/-')
print(g('o')-b,b-c,c)

在线尝试！

R，63字节

使用正则表达式匹配来查找和计数吉米人。

library(stringr)
str_count(scan(,''),c('(?<![/-])o','/o','/-'))

在线尝试！

K（oK），25个字节

{|-':|1 1 .5*+/x=\:"o/-"}

在线尝试！

Perl -p 5，41个字节

$_=1*s/o(?!\\|-)//g.$".1*s|/o||g.$".y/o//

在线尝试！

计算o出现后没有跟随\或-发现矮人的次数，并将其从字符串中删除。然后计算/o出现的次数，以找到杂技演员并将其从字符串中删除。然后计算o剩余的数量，以确定健美者。在数字之间插入空格并隐式输出结果。

Ruby，50个字节

->s{%w(o /o -o).map{|x|s.scan(/[\/-]?o/).count x}}

在线尝试！

SNOBOL4（CSNOBOL4），135字节

	I =INPUT
B	I '-o' =	:F(A)
	B =B + 1	:(B)
A	I '/o' =	:F(D)
	A =A + 1	:(A)
D	I 'o' =	:F(O)
	D =D + 1	:(D)
O	OUTPUT =+D ' ' +A ' ' +B
END

在线尝试！

从字符串中删除-o，/o和o，并每次都增加相应的计数器。留下大量的胳膊和腿（/-\，，\什么也没有）。

第四（gforth），118字节

: c -rot 0 tuck do over i + c@ 3 pick = - loop nip nip ;
: f 2dup '/ c >r 2dup '- c 2/ -rot 'o c i - . r> over - . . ;

在线尝试！

说明

• 获取计数的/，-和o人物
• 健美运动员的-字符数除以2
• Acrobat是/角色数量减去车身制造商数量
• 矮人是o角色数量减去Acrobat和健美运动员的数量

代码说明

\ c counts the number of occurrences of the given character in a string
\ stack usage is ( c-addr u1 w1 - u )
: c                 \ start a new word definition
  -rot 0 tuck       \ sets up parameters for a counted loop
  do                \ loop from 0 to string-length - 1 (inclusive)
    over i +        \ get the address of the current character in the string
    c@              \ get the ascii value of the current character              
    3 pick =        \ compare it to the character we're counting
    -               \ subtract result from the accumulator (subtract because -1 = true in forth)
  loop              \ end the loop
  nip nip           \ remove extra values from the stack
;                   \ end the word definition

\ Main function 
: f                 \ start a new word definition
  2dup              \ duplicate the string address and length
  '/ c >r           \ count the number of '/' characters and stick the result on the return stack
  2dup '- c 2/      \ count the number of '-' characters and divide by 2
  -rot 'o c         \ move the string to the top of the stack and count the number of 'o characters
  i - .             \ calculate number of dwarf jimmy's and print
  r> over - .       \ calculate number of acrobat jimmy's and print (drop '/' count from return stack)
  .                 \ print number of body-builder jimmy's
;                   \ end word definition

05AB1E，13 个字节

…-/oS¢ć;š0š¥R

如果可以取消输出顺序，则可以将其设为12 个字节。R[bodybuilder, acrobat, dwarf]

在线尝试或验证所有测试用例。

次等字节替代：

…-/oS¢R`;0)üα

在线尝试或验证所有测试用例。

说明：

…-/o           # Push string "-/o"
    S          # Split to a list of characters: ["-","/","o"]
     ¢         # Count the occurrence of each character in the (implicit) input-string
      ć        # Extract the head; pop and push head and remainder-list
       ;       # Halve this head
        š      # And prepend it back in front of the remainder-list
         0š    # Then also prepend a 0
           ¥   # Get the deltas (forward differences)
            R  # And reverse the list to get the required order of output-counts
               # (after which the result is output implicitly)

…-/oS¢         # Same as above
      R        # Reverse this list
       `       # Pop the list and push its values separately to the stack
        ;      # Halve the top value on the stack
         0     # Push a 0
          )    # Wrap all values on the stack into a list
           ü   # For each overlapping pair of values:
            α  #  Get the absolute difference between the two values
               # (after which the result is output implicitly)

C（gcc），99 98 96字节

-1字节，感谢ceilingcat

o,S,d,c;f(char*s){for(o=S=d=0;c=*s++;o+=c>93)d+=c==45,S+=c==47;printf("%d %d %d",o-S,S-d,d/=2);}

在线尝试！