24 game

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

word左右居中纵向分布 word左右居中对齐 word左右居中对齐怎么设置 word标题回车后为正文 word标题回车后直接分页 word标题回车后中间空了好大一段 word里面行距怎么调整无法缩小 word里面行距一直很大 word里面行距怎么设置在哪里 word试卷格式文档怎么打印 word试卷格式排版 word中隐藏文字打印 word中隐藏文字快捷键 word中隐藏文字在哪里

专题更多>>

最新文章更多>>

蜗牛的倔强

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;
	}
}