diff options
| author | Cliff Click <cliffc@acm.org> | 2026-08-10 11:11:18 -0700 |
|---|---|---|
| committer | Cliff Click <cliffc@acm.org> | 2026-10-19 14:56:14 -0700 |
| commit | 495c3fb44ff91c75f9258e5a34a8fbe5dcdbff9c (patch) | |
| tree | 8085242d90310d32e1dc34d5e5b8fbfb9c81d439 /docs/chapter25/examples/Capitalize.smp | |
| parent | f613348651956d68e225ffc184dd6eabaea5326a (diff) | |
| download | Simple-495c3fb44ff91c75f9258e5a34a8fbe5dcdbff9c.tar.gz Simple-495c3fb44ff91c75f9258e5a34a8fbe5dcdbff9c.zip | |
Chapter 25: Modules, Separate Compilation, and SSA Constructionlinear
Co-authored-by: Hsiang-Ying Fu <66062782+fuhsnn@users.noreply.github.com>
Co-authored-by: fuhsnn <66062782+fuhsnn@users.noreply.github.com>
Co-authored-by: Symious <14933944+symious@users.noreply.github.com>
Co-authored-by: Jun Kawasaki <jun784@gmail.com>
Co-authored-by: Claude Opus 5 <noreply@anthropic.com>
Diffstat (limited to 'docs/chapter25/examples/Capitalize.smp')
| -rw-r--r-- | docs/chapter25/examples/Capitalize.smp | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/docs/chapter25/examples/Capitalize.smp b/docs/chapter25/examples/Capitalize.smp new file mode 100644 index 00000000..8e31c18f --- /dev/null +++ b/docs/chapter25/examples/Capitalize.smp @@ -0,0 +1,22 @@ + +// An implementation of +// https://sampleprograms.io/projects/capitalize/ + +val main = { u8[~][] args -> + if( args# > 2 ) { + sys.io.p("Use quotes around multiple strings.\n"); + return 0; + } + if( args# != 2 || args[1]# == 0 ) { + sys.io.p("Usage: please provide a string\n"); + return 0; + } + + u8[~] input = args[1]; + var output = new u8[input# + 1]; + sys.ary.copy(output,0,input,0,input#); + output[0] = sys.char.toupper(input[0]); + output[input#] = '\n'; + sys.io.p(output); + return 0; +}; |
