从9x9矩阵中抽取中间菱形区域打印 - perl
2024-10-13 00:03:56
起因: 源自于c的练习题,打印diamond,因为perl不需编译,方便调试,故先用perl实现一下
关键: 没有想到好的思路,只能借助于上一篇打印上下三角矩阵的方法,把菱形拆成上下左右4个三角矩阵区域来实现。
#!/usr/bin/perl -w
use strict;
## ------------------------------- diamond -----------------------------------------
## upper peak
for my $row (reverse(..))
{
## upper left
for my $col(..)
{
if($col >= $row)
{
print "* ";
}
else
{
print " ";
}
} ## upper right
for my $col(reverse(..))
{
if($col > $row)
{
print "* ";
}
else
{
print " ";
}
}
print "\n";
} ## lower peak
for my $row (..)
{
print " ";
## lower left
for my $col(..)
{
if($col >= $row)
{
print "* ";
}
else
{
print " ";
}
} ## lower right
for my $col(reverse(..))
{
if($col > $row)
{
print "* ";
}
else
{
print " ";
}
}
print "\n";
}
输出:
最新文章
- 打造完美的xml技术解决方案(dom4j/xstream)
- Codeforces Round #346 (Div. 2)
- Android UI系列-----EditText和AutoCompleteTextView
- HTML5----CSS显示半个字符
- 通知NSNotificationCenter
- C++_前置声明
- 洛谷 P1200 [USACO1.1]你的飞碟在这儿Your Ride Is He…【字符串+模拟】
- Angular组件——中间人模式
- nsqlookup_protocol_v1.go
- linux下初始化mysql时报错
- Oracle11g版本中未归档隐藏参数
- 【Java】链表中存储对象的问题
- 01: html常用标签
- Laravel Eloquent Model->;isDirty() Function
- C指针和数组
- shell脚本中针对sudo等密码输入的问题解决方案
- 解决gradle下载慢的问题(转)
- centos下安装python的过程
- Nothing is impossible
- SQL数据库查询语言(1)