大佬教程收集整理的这篇文章主要介绍了24 game,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
#!/usr/bin/env perl6 my @nums; grAMMar InfixNotation { rule TOP { ^ <expr> $ } token expr { <left>+ % <op> } token left { '(' <expr> ')' | <@nums> } token op { < + - * / > } } my $str; while True { @nums = (1 .. 9).roll(4)>>.Str; say "Generate 4 digit : " ~ @nums; print "Now enter your expression:"; $str = ~$*IN.get; if InfixNotation.parse($str) { my $value = $/.EVAL; say "$str = $value"; say $value == 24 ?? "Good job!" !! "Don't lose heart. Come on!"; } else { say "Expression check failed."; } say "Try again Y/N?"; $str = $*IN.get; if $str.lc !~~ "y" { last; } }
以上是大佬教程为你收集整理的24 game全部内容,希望文章能够帮你解决24 game所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。