介绍：

在我小时候编写的文档中，我存储了许多不同的密码，我选择了一些我认为最适合挑战的密码（不太琐碎，也不太难），并将它们转变为挑战。它们中的大多数仍位于沙箱中，我不确定是否要全部发布还是仅发布其中几个。这是第三个也是最简单的一个（在我之前发布的Computer Cipher和Trifid Cipher之后）。

对于时钟密码，我们使用以下图像对文本进行加密：

因此，类似的句子this is a clock cipher将变为：

t  h i s     i s     a     c l  o  c k     c i p  h e r    (without additional spaces of course, but added as clarification)
19:7:8:18:00:8:18:00:AM:00:2:11:14:2:10:00:2:8:15:7:4:17

挑战：

给定一个字符串sentence_to_encipher，如上所述将其加密。

挑战规则：

• 您可以假定sentence_to_encipherwill只包含字母和空格。
• 您可以使用完整的小写字母或完整的大写字母（请说明您在答案中使用了哪一个）。
• 你不允许添加前导零的单个数字加密信件b通过j，但两个零00是强制性的空间。
• 您应将其:用作分隔符，并且:不允许使用其他前导或尾随。
• 只要保持一致，就可以使用小写字母am，pm而不能使用大写字母AM和PM。

通用规则：

• 这是代码高尔夫球，因此最短答案以字节为单位。
  不要让代码高尔夫球语言阻止您使用非代码高尔夫球语言发布答案。尝试针对“任何”编程语言提出尽可能简短的答案。
• 标准规则适用于具有默认I / O规则的答案，因此您可以使用STDIN / STDOUT，具有正确参数的函数/方法以及返回类型的完整程序。你的来电。
• 默认漏洞是禁止的。
• 如果可能的话，请添加一个带有测试代码的链接（即TIO）。
• 另外，强烈建议为您的答案添加说明。

测试用例：

Input:  "this is a clock cipher"
Output: "19:7:8:18:00:8:18:00:AM:00:2:11:14:2:10:00:2:8:15:7:4:17"

Input:  "test"
Output: "19:4:18:19"

Input:  "what time is it"
Output: "22:7:AM:19:00:19:8:12:4:00:8:18:00:8:19"

Input:  "acegikmoqsuwy bdfhjlnprtvxz"
Output: "AM:2:4:6:8:10:12:14:16:18:20:22:24:00:1:3:5:7:9:11:13:15:17:19:21:23:PM"

Input:  "easy peazy"
Output: "4:AM:18:24:00:15:4:AM:PM:24"

Python 2中，74 72个字节

lambda s:':'.join(['AM','PM','00',`ord(c)-97`]['az '.find(c)]for c in s)

在线尝试！

输入全部为小写

05AB1E，22 21字节

„AM24L„PM00)˜Að«s‡':ý

在线尝试！ 或作为测试套件

一些备用的21字节解决方案：

':ýAð«24L„AMš„PMª00ª‡
00„AM24L„PM)˜AIk>è':ý

Perl 6，47个字节

*.ords>>.&{<<00 AM{1..24}PM>>[$_%32]}.join(":")

在线尝试！

匿名无论哪种lambda都采用任意一种情况的字符串并返回加密的字符串。

说明：

*.ords>>.&{                         } # Map the ordinal values to
           <<              >>[$_%32]  # The index in the list
              00 AM{1..24}PM  # 00, AM, the numbers 1 to 24 and PM
                                     .join(":")   # And join with colons

Pyth，25个字节

j\:m@+++"AM"S24"PM""00"xG

在此处在线尝试，或在此处一次验证所有测试用例。

j\:m@+++"AM"S24"PM""00"xGdQ   Implicit: Q=eval(input()), G=lowercase alphabet
                              Trailing dQ inferred
            S24               [1-24]
       +"AM"                  Prepend "AM"
      +        "PM"           Append "PM"
     +             "00"       Append "00" - this is the dictionary
   m                      Q   Map each element of Q, as d, using:
                       xGd      Get the index of d in G, -1 if not present (i.e. space)
    @                           Get the element from the dictionary at the above index
j\:                           Join the result on ":", implicit print

JavaScript（Node.js），72字节

以小写形式输入。

s=>[...s].map(c=>c<1?'00':(x=Buffer(c)[0]-1&31)>24?'PM':x||'AM').join`:`

在线尝试！

Java（JDK），95字节

s->{int a=0;for(var c:s)System.out.print((a++<1?"":":")+(c<33?"00":c<66?"AM":c>89?"PM":c-65));}

在线尝试！

学分

• -1字节感谢Kevin Cruijssen

C＃（Visual C＃交互式编译器），70字节

s=>string.Join(":",s.Select(a=>a<33?"00":a<66?"AM":a>89?"PM":a%65+""))

将输入作为一串小写字母输入。首先检查char是否为空格，如果是，则将其转换为00。接下来，它检查char是否为A，并将其转换为AM。它再次检查Z和其转换为PM，如果它是。最后，如果字符通过所有检查，它将转换为其字母顺序1。

-2个字节感谢@dana

在线尝试！

// Input taking a string
s => 
// Join the following IEnumerable<char> with a ":" character
string.Join(":", 
// Map all the characters in the string
s.Select(a => 
// Is the char less than 33, aka a space?
a < 33 ? 
// If so, it's a "00"
"00" 
// Else, is this an 'A'?
: a < 66 ?
// If so, convert it to "AM"
"AM" : 
// If it's not 'A' or a space, could it be a 'Z'?
a > 89 ?
// If it is, turn the character into "PM"
"PM" : 
// If it fails all of the checks above, get the characters position in the alphabet and subtract one from that.
a % 65 + ""))

红宝石，49字节

->a{a.map{|c|["00",:AM,*1..24,:PM][c.ord%32]}*?:}

在线尝试！

Jo King的Perl港口的答案。将输入作为一个字符数组，以大写形式返回带有AM / PM的字符串。

红，124个 121 110 109字节

func[s][replace/all form collect[forall s[keep switch/default
c: -97 + s/1[0['AM]25['PM]-65["00"]][c]]]sp":"]

在线尝试！

05AB1E，20 个字节

':ýð00:A24L„AMš„PMª‡

极大地启发@ Mr.Xcoder的22 byter在现有05AB1E答复的评论@Emigna。

将输入作为小写字符的列表（S如果我将输入作为字符串，则将为21个字节，带前导）。

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

说明：

':ý            '# Join the (implicit) input list of characters by ":"
                #  i.e. ["e","a","s","y"," ","p","e","a","z","y"] → "e:a:s:y: :p:e:a:z:y"
ð00:            # Replace all spaces " " with "00"
                #  i.e. "e:a:s:y: :p:e:a:z:y" → "e:a:s:y:00:p:e:a:z:y"
A               # Push the lowercase alphabet
 24L            # Push a list in the range [1,24]
    „AMš        # Prepend "AM" at the start of this list
        „PMª    # And append "PM" at the end of the list
            ‡   # Transliterate; mapping letters to the list-items at the same indices
                # (and output the result implicitly)
                #  i.e. "e:a:s:y:00:p:e:a:z:y" → "4:AM:18:24:00:15:4:AM:PM:24"

Tcl，100字节

proc C s {join [lmap c [split $s ""] {scan $c %c v
expr $v==65?"AM":$v==90?"PM":$v==32?00:$v-65}] :}

在线尝试！

C＃（Visual C＃交互式编译器），98字节

s=>string.Join(':',s.Select(c=>"az ".Contains(c)?new[]{"AM","PM","00"}["az ".IndexOf(c)]:c-97+""))

将输入作为（小写）char数组。在线尝试！

木炭，26字节

ＵＢ:Ｆθ«→≡ι ×0²a¦AM¦z¦PMＩ⌕βι

在线尝试！链接是详细版本的代码。以小写输入（可以小写更改为大写）。说明：

ＵＢ:

将背景字符设置为:。这将填补由正确运动创建的输出值之间的空隙。

Ｆθ«→

循环遍历每个字符，每次都留一个空白。（第一步不起作用，因为此时画布仍为空。）

≡ι ×0²a¦AM¦z¦PM

交换机上的字符，如果它的空间，a或者z再输出相应的代码。我用这里×0²代替，00因为后者在附加的分隔符中将花费两个字节。

Ｉ⌕βι

否则，将字母在小写字母中的0索引位置输出为字符串。

果冻，24字节

«"⁾PMµØAḊiȯ⁾00µe?€⁾AZj”:

在线尝试！