shBZkP - Online PHP Interpreter & Debugging Tool

<?php
$rr=[];
fscanf(STDIN,"%d %d",$n,$m);
$data=[];
$str=stream_get_line(STDIN,1000000,"\n");
$data=explode(" ",$str,10000);
foreach(range(0,$n-1) as $i){
	$data[$i]=intval($data[$i]);
}
#var_dump($data);
foreach(range(0,$n) as $i){
	$rr[$i]=[];
	foreach(range(0,$n) as $j){
		$rr[$i][$j]=0;
	}
}
$rr[0][0]=1;
$ans=0;
$mod=1000000007;
foreach(range(0,$m) as $i){
	foreach(range(0,$m) as $j){
		$p1=$i+$j;
		if($n<=$p1)continue;
		$t=$rr[$i][$j];
		$add=$t;
		$p2=$p1+1;
		if($i==0 || $data[$p1]<$data[$p2]){
			$rr[$i+1][$j]=(rr[$i+1][$j]+$t)%$mod;
			if($p2==$n && $i+1<=$m && $j<=$m){
				$ans=($ans+$add)%$mod;
				echo $i."=i a j=".$j." t=".$t."\n";
			}
		}
		if($j==0 || $data[$p1]<$data[$p2]){
			$rr[$i][$j+1]=($rr[$i][$j+1]+$t)%$mod;
			if($p2==$n && $i<=$m && $j+1<=$m){
				$ans=($ans+$add)%$mod;
				echo $i."=i b j=".$j." t=".$t."\n";
			}
		}
	}
}
var_dump($rr);
printf($ans."\n");
?>