专栏首页HansBug's Lab1297: [SCOI2009]迷路

1297: [SCOI2009]迷路

1297: [SCOI2009]迷路

Time Limit: 10 Sec  Memory Limit: 162 MB

Submit: 652  Solved: 442

[Submit][Status]

Description

windy在有向图中迷路了。 该有向图有 N 个节点,windy从节点 0 出发,他必须恰好在 T 时刻到达节点 N-1。 现在给出该有向图,你能告诉windy总共有多少种不同的路径吗? 注意:windy不能在某个节点逗留,且通过某有向边的时间严格为给定的时间。

Input

第一行包含两个整数,N T。 接下来有 N 行,每行一个长度为 N 的字符串。 第i行第j列为'0'表示从节点i到节点j没有边。 为'1'到'9'表示从节点i到节点j需要耗费的时间。

Output

包含一个整数,可能的路径数,这个数可能很大,只需输出这个数除以2009的余数。

Sample Input

【输入样例一】 2 2 11 00 【输入样例二】 5 30 12045 07105 47805 12024 12345

Sample Output

【输出样例一】 1 【样例解释一】 0->0->1 【输出样例二】 852

HINT

30%的数据,满足 2 <= N <= 5 ; 1 <= T <= 30 。 100%的数据,满足 2 <= N <= 10 ; 1 <= T <= 1000000000 。

Source

Day2

题解:我这辈子做的第一道真正意义上的矩阵乘法么么哒(phile:这。。。 HansBug:讨厌啦,都说了不要鄙视本宫TT)。。。据说矩阵乘法超级神奇,于是按照XXXXXXX来了一发。。。接下来还得继续学习,么么么哒~~~~

 1 const p=2009;
 2 type
 3     sq=array[0..105,0..105] of longint;
 4 var
 5    i,j,k,l,m,n:longint;
 6    a,b:sq;
 7    cx:char;
 8 function cc(a,b:sq):sq;
 9          var
10             c:sq;
11          begin
12               fillchar(c,sizeof(c),0);
13               for k:=1 to n*9 do
14                   for i:=1 to n*9 do
15                       for j:=1 to n*9 do
16                           c[i,j]:=(c[i,j]+(a[i,k]*b[k,j]) mod p) mod p;
17               cc:=c;
18          end;
19 procedure digit(var a:sq);
20          begin
21               fillchar(a,sizeof(a),0);
22               for i:=1 to n*9 do a[i,i]:=1;
23          end;
24 function ksm(a:sq;x:longint):sq;
25          var
26             c1,c2:sq;
27          begin
28               digit(c1);c2:=a;
29               while x>0 do
30                     begin
31                          if odd(x) then c1:=cc(c1,c2);
32                          c2:=cc(c2,c2);
33                          x:=x div 2;
34                     end;
35               ksm:=c1;
36          end;
37 begin
38      readln(n,m);
39      for i:=1 to n do
40          for j:=2 to 9 do
41              a[i*9-9+j,i*9-9+j-1]:=1;
42      for i:=1 to n do
43          begin
44               for j:=1 to n do
45                   begin
46                        read(cx);
47                        if cx<>'0' then
48                           a[j*9-8,i*9-9+ord(cx)-48]:=1;
49                   end;
50               readln;
51          end;
52      b:=ksm(a,m);
53      writeln(b[n*9-8,1]); 
54 end.         

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 1218: [HNOI2003]激光炸弹

    1218: [HNOI2003]激光炸弹 Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 1139  Solv...

    HansBug
  • 3997: [TJOI2015]组合数学

    3997: [TJOI2015]组合数学 Time Limit: 20 Sec  Memory Limit: 128 MB Submit: 247  Solve...

    HansBug
  • 1602: [Usaco2008 Oct]牧场行走

    1602: [Usaco2008 Oct]牧场行走 Time Limit: 5 Sec  Memory Limit: 64 MB Submit: 1211  ...

    HansBug
  • 深入理解并发/并行,阻塞/非阻塞,同步/异步

    版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/sinat_35512245/articl...

    大黄大黄大黄
  • 深度学习不再是炼丹术!谷歌给出首个神经网络训练理论证明

    谷歌AI的研究人员日前在arxiv贴出一篇文章,给出了首个神经网络训练相关的理论证明。

    新智元
  • 深度学习不再是炼丹术!谷歌给出首个神经网络训练理论证明

    谷歌AI的研究人员日前在arxiv贴出一篇文章,给出了首个神经网络训练相关的理论证明。

    abs_zero
  • Android ADB超简单的安装教程(推荐)

    在Android TV开发中,我们会和APP开发一样使用到真机测试,而adb是一个特别的存在,因为它可以轻松的帮我连接到安卓设备。adb全称为Andorid D...

    砸漏
  • JVM之ParNew收集器

    并发收集:用户线程与垃圾收集器线程同时工作,用户线程在继续运行,垃圾收集程序运行于另外一个cpu上。

    WindWant
  • 入门|详解机器学习中的梯度消失、爆炸原因及其解决方法

    前言:   本文主要深入介绍深度学习中的梯度消失和梯度爆炸的问题以及解决方案。本文分为三部分,第一部分主要直观的介绍深度学习中为什么使用梯度更新,第二部分主...

    机器学习算法工程师
  • 调试神经网络让人抓狂?这有16条锦囊妙计送给你

    问耕 编译整理 量子位 出品 | 公众号 QbitAI ? 这一篇的作者还是Andrey Nikishaev,一位创业者兼开发者。量子位前两天搬运了他的另外一篇...

    量子位

扫码关注云+社区

领取腾讯云代金券