描述

我想每个人都知道长发公主和王子的童话。对于那些不喜欢的人：在这里阅读。但是，长发公主刚刚剪了头发，所以它可能还不够长，无法让她的王子爬上去！她可能会很难过。

挑战

您的任务是编写一个函数，该函数可以评估王子要求她放头发时长发公主会说些什么：当头发的长度大于或等于塔高时，再加上一米（安全准则），她将成为veeeery高兴地说Aaaah!，与的数目a相同length of her hair - height of the tower。否则，她的头发没有足够的长度，并且她开始哭泣：Booho!，其中os在h相等的三分之二之前height of the tower - length of her hair，而os在h之后的其余部分。os后面的s 数B必须四舍五入，因此，如果得到2.6，将为3 os，其他的必须在s后面h。

输入输出

给您提供正整数（包括空值）作为参数，列表或两个单个数字，顺序是最方便的顺序，但是必须说明采用它们的顺序。作为输出，打印长发公主将说的话。

测试用例

在测试用例中，第一个数字将是头发的长度。

0, 0 -> 'Bh!' (probably a dry sob..)
2, 1 -> 'Aah!'
1, 2 -> 'Boh!'
1, 4 -> 'Booho!'
4, 1 -> 'Aaaah!'
2, 4 -> 'Boho!'

这是代码高尔夫球，因此最短答案以字节为单位！

果冻， 43 41 40 38 34 33 32  31 字节

可能还有很多吗？？...这真是打高尔夫球！

‘:3;ạ¥⁸4ẋ+;€⁹¦7Ṛṭ;8ị“øŻPLC»
ạç>

完整程序打印结果*。

在线尝试！

怎么样？

‘:3;ạ¥⁸4ẋ+;€⁹¦7Ṛṭ;8ị“øŻPLC» - Link 1: number, abs(hair-tower); number, (hair > tower)?
‘                           - increment -> abs(hair-tower)+1
 :3                         - integer divide by 3 -> (abs(hair-tower)+1)//3
                            -   ...the remainder amount after removing 2/3 rounded
      ⁸                     - chain's left argument, abs(hair-tower)
     ¥                      - last two links as a dyad:
    _                       -   subtract (yields the 2/3 rounded amount)
   ;                        - concatenate
       4ẋ                   - repeat 4 (vectorises) (i.e. [[4,4,...],[4,...]])
         +                  - add (hair > tower)? (vectorises) (i.e. 4s->5s if so)
             ¦              - sparse application:
          ;€  7             - of:  concatenate €ach with a 7
            ⁹               - to indexes: chain's right argument, (hair-tower)?
               Ṛ            - reverse the list
                ṭ           - tack (hair-tower)?
                 ;8         - concatenate an 8
                    “øŻPLC» - compression of the word "Abroach" & the string "!B"
                   ị        - index into "Abroach!B" (1-indexed & modular, so 0->B)
                            - implicit (smashed) print

ạç> - Main link: number, hair; number, tower
ạ   - absolute difference -> abs(hair-tower)
  > - greater than? -> (hair > tower)? (1 if so, else 0)
 ç  - call the last link (1) as a dyad

*作为单子链接，它返回字符列表和字符列表，例如['B', [['o', 'o', 'h'], ['o']], '!']，作为完整程序，隐式打印将其粉碎，例如Booho!

Python 3，87字节

lambda l,h:["B"+"o"*round((h-l)*2/3)+"h"+"o"*round((h-l)/3),"A"+"a"*(l-h)+"h"][l>h]+"!"

在线尝试！

函数的自变量都采取了订单length of hair，height of tower。

05AB1E，38 35 32字节

输入顺序：length of hair，height of tower

‹i¹α'a×"Aÿh!"ë¹-x‚>3÷R'o×'hý…Bÿ!

在线尝试！

说明

‹i                                  # if h < l
  ¹α                                # push absolute difference of h and l
    'a×                             # repeat "a" that many times
       "Aÿh!"                       # interpolate between "A" and "h!"
 ë                                  # else 
  ¹-                                # push h-l
    x‚                              # pair with its double
      >3÷                           # increment and integer divide by 3
         R                          # reverse the list
          'o×                       # for each, repeat "o" that many times
             'hý                    # merge the o's on "h"
                …Bÿ!                # interpolate between "B" and "!"

Javascript，105 97字节

^{感谢Oki帮助节省了7个字节！}

p=(t,s)=>(s||"o").repeat(t)
l=>h=>(d=l-h,o=d/3-.5|0,l>h?`A${p(d,"a")}h`:`B${p(o-d)}h`+p(-o))+"!"

定义匿名的currying函数。使用方式f(length)(height)

在线尝试！

PHP> = 7.1，111字节

[,$h,$t]=$argv;echo BA[$b=$h>$t],($r=str_repeat)(oa[$b],$c=round(($a=abs($h-$t))*($b?:2/3))),h,$r(o,$a-$c),"!";

PHP沙盒在线

果冻，32字节

_‘”aẋŒt;⁾h!ɓ_÷1.,3+.”oẋ“Bh!”żð>?

在线尝试！

-1感谢乔纳森·艾伦。

仅作为完整程序工作。

争论是有序的：头发，塔

朱莉娅101字节

g(h,t)=h>t?string("A","a"^(h-t),"h!"):string("B","o"^round(Int,(t-h)*2/3),"h","o"^round(Int,(t-h)/3))

函数的自变量都采取了订单length of Hair，height of Tower。

果冻，84 76字节

这确实很长，但是我花了太多时间在此上不张贴。接受两个整数参数：

1. 头发的长度
2. 塔长

任何打高尔夫球的技巧，将不胜感激。

³>⁴×111ð;ø³>⁴¬×97
97ðxø³ạ⁴
111ðxø¢L÷3×⁸ær0:1
2Çṭ2£“h”ṭµ1ÇṭµFḟ1£
>¬+65¥;¢;33Ọ

在线尝试！

R，117字节

x=diff(scan());cat(`if`(x>0,paste0("A",rep("a",x),"h!"),paste0("B",rep("o",F<-round(-2*x/3)),"h",rep("o",-x-F),"!")))

有点长，很确定这可以打下来。按顺序从STDIN接受输入Tower, Hair。

Python 2，77个字节

lambda h,t:("BA"+(abs(h-t)*2+1)/3*"oa"+"h"+(abs(h-t)+1)/3*"ao"+"h!!")[h>t::2]

一个未命名的函数，其头发长度为，h塔高度为t，并返回一个字符串。

在线尝试！

构建一个以开头BA的字符串oa，然后是重复的字符串的四舍五入的差值的三分之二，然后是单个h，然后ao重复其余的数量，最后是h!!。然后，返回值是每隔两个字符以B或A通过切片符号开头[h>t::2]。

Perl，107个字节

首先取头发长度，其次为塔长。

sub b{(($c=$_[0]-$_[1])>0?'A'.'a'x--$c.'h':do{$o=int(2/3*($c*=-1)+.5);'B'.('o'x$o).'h'.('o'x($c-$o))}).'!'}