polyahu
- 浏览: 22177 次
- 性别:
- 来自: 北京
-
最新评论
文章列表
学点powershell
常用命令：
Get-Command
Get-Help
简单循环语句：
$i = 1
do { Write-Host $i; $i++ } while ($i -le 5)
学习一些特殊变量，获取帮助：
Get-Help about_automatic_variables
变量赋值和打印：
$var = "string"
Set-Variable -Name strFoo -Value "bar"
Write-Output $var
$var
Write-Output ($var + $str ...
要require小写的。
比如 require 'mysql'
require 'Mysql' 就不行了。
sendEmail是一个命令行发Email的工具，示范了Perl脚本编写。
转来学习一下。
http://caspian.dotconf.net/menu/Software/SendEmail/
#!/usr/bin/perl -w
##############################################################################
## sendEmail
## Written by: Brandon Zehm <caspian@dotconf.net>
##
## License:
## sendEma ...
[learn]kerl示范Bash脚本的编写
- 博客分类：
- Shell
kerl是一个类似rvm的工具脚本，是下载管理erlang版本用的。
示范一些Shell脚本编写的规范，转过来学习一下。
https://github.com/spawngrid/kerl
#! /bin/sh
# Copyright (c) 2011, 2012 Spawngrid, Inc
# Copyright (c) 2011 Evax Software <contact(at)evax(dot)org>
#
# Permission is hereby granted, free of charge, to any person obtaining a ...
记得拉马努金关于1729的故事吗？
小脚本算出1729
#/bin/bash
echo | awk ' { input = 0 }
END {
while(check_sum(input) < 2) { input++ }
print input
}
function check_sum(argi) {
r = 0
for (i = 1; i < int(argi/2); i++)
if ((check_cube(i) == 1) && (check_cube(argi - i) == 1) &&a ...
The AWK Programming Language书里
7.1节的heapsort段落
#/bin/bash
echo | awk '
{ A[NR] = $0 }
END { hsort(A, NR)
for (i = 1; i <= NR; i++)
{ print A[i] }
}
function hsort(A, n, i) {
for (i = int(n/2); i >= 1; i--)
{ heapify(A, i, n) }
for (i = n; i > ...
总是在走路或者坐公交车的时候发呆，胡思乱想，然后就想写点什么。可是每到坐到电脑跟前的时候，就四处灌水、闲扯、看美剧、打发时间。真的荒废了好多好多。
很佩服那些坚持写东西的人，哪怕只是简单的博客或者日记，日积月累，也能收获很多。
其实不止是写东西，做任何事情都是贵在坚持啊。
马上就要26周岁了，时光飞逝，要抓紧时间做点正经的事情了。
大作业水平...
#include<stdio.h>
#include<stdlib.h>
struct node{
struct node* next;
int c;
};
struct node* init_node(int input)
{
struct node* p;
p = malloc(sizeof(struct node));
p->c = input;
return p;
}
void insert_node(struct node *head, int n ...
一段guile脚本文件，循环读入并计算从stdin输入的两个数之和。
#!/usr/local/bin/guile -s
!#
(define (main)
(let ((a (read (current-input-port)))
(b (read (current-input-port))))
(if (not (eof-object? a))
(begin
(write (+ a b) (current-output-port))
(write-char #\newline (current-output-port))
...
灌一篇。
知乎上看到一个问答很有意思：
有哪些事，是可以每天坚持 10 分钟，然后造成巨大改变的？ http://zhi.hu/TG8H
总结一下，适合我做的就是：写日记，背单词，看书，冥想，锻炼身体。
perl在一个文件里搜索一个pattern
#!/usr/bin/perl
open FH,'< ./input.file';
@lines = <FH>;
foreach $line (@lines)
{
print $line if $line =~ m/pattern/;
}
vector<int> vec_int;
...;
vec_int.clear();
vector<int>().swap(vec_int);
swap这一步必须要啊... 否则内存泄露的一塌糊涂啊...
这小技巧很值得学习。
gentoo安装感受
发现仅仅是读一遍安装手册和文档都有所收获...
gentoo的更新相当快，用的镜像是install-x86-minimal-20121213.iso
刚刚在vbox里装了最新的gentoo-3.5.7，完成了安装手册的前10章。
对fdisk分区、/etc/{init.d,conf.d,rc.conf}这几个目录和grub稍有了解。
emerge也挺有趣的。
暂告一段落了，等会睡觉去了。
发现官方的中文文档没有维护到最新，有两处错：
8.b的代码2.8应该去掉，进行下边的操作。
个人理解应该是/etc/init.d/目录下的文件才能进行rc-upda ...
看了李航的统计学习方法(http://book.douban.com/subject/10590856/)
极粗略的看了前五章。
第2章，感知机，主要思想是计算出一个超平面把(可分类的)训练数据做分类。算法是随机选一个分界超平面，用已标注的训练数据逐渐做调整，有一个学习率的参数做调整。
第3章，K-NN。具体实现采用kd树的数据结构。
第4章，朴素贝叶斯，用先验概率和条件概率做分类依据。简化高效，性能不高。
第5章，决策树。用信息增益和信息增益比做分类依据。
ID3选取最大的信息增益的一类特征，用阈值卡一下，然后递归进行。
C4.5和ID3很像，用的是信息增益比。
有决策树的剪枝算法
...
#!/usr/bin/bash
gcd()
{
until test 0 -eq "$2"; do
set -- "$2" "`expr "$1" % "$2"`"
done
test 0 -gt "$1" && set -- "`expr 0 - "$1"`"
echo "$1"
}
gcd $1 $2
此处的set命令用--的参数将$2和'e ...