Solve 4732, 10799, and 2757

Author: kiwiyou

P10799.f95

@@ -0,0 +1,23 @@
+program P10799
+    implicit none
+    character(len = 100000) :: parens
+    integer :: stack, sum
+    integer :: i
+
+    read *, parens
+    sum = 0
+    stack = 0
+    do i = 1, len_trim(parens)
+        if (parens(i:i) == '(') then
+            stack = stack + 1
+        else if (parens(i:i) == ')') then
+            stack = stack - 1
+            if (parens((i - 1):(i - 1)) == '(') then
+                sum = sum + stack
+            else
+                sum = sum + 1
+            end if
+        end if
+    end do
+    write (*, '(I0)') sum
+end program P10799

P2757.rs

@@ -0,0 +1,27 @@
+use std::io::{stdin, BufRead};
+
+fn to_alpha(mut column: u32) -> String {
+    let mut buffer = Vec::new();
+    while column > 0 {
+        column -= 1;
+        buffer.push((column % 26) as u8 + b'A');
+        column /= 26;
+    }
+    buffer.reverse();
+    unsafe { String::from_utf8_unchecked(buffer) }
+}
+
+fn main() {
+    let stdin = stdin();
+    let handle = stdin.lock();
+    for line in handle.lines().flatten() {
+        let mut splitter = line.trim_end().split(char::is_alphabetic).skip(1);
+        let row = splitter.next().unwrap();
+        let column = splitter.next().unwrap().parse::<u32>().unwrap();
+        if row == "0" && column == 0 {
+            break;
+        } else {
+            println!("{}{}", to_alpha(column), row);
+        }
+    }
+}

P4732.js

@@ -0,0 +1,43 @@
+const readline = require('readline')
+const interface = readline.createInterface(process.stdin)
+
+const keys = new Map([
+    ['A', 0],
+    ['A#', 1],
+    ['Bb', 1],
+    ['B', 2],
+    ['Cb', 2],
+    ['B#', 3],
+    ['C', 3],
+    ['C#', 4],
+    ['Db', 4],
+    ['D', 5],
+    ['D#', 6],
+    ['Eb', 6],
+    ['E', 7],
+    ['Fb', 7],
+    ['E#', 8],
+    ['F', 8],
+    ['F#', 9],
+    ['Gb', 9],
+    ['G', 10],
+    ['G#', 11],
+    ['Ab', 11],
+])
+
+const keys_rev = 'A A# B C C# D D# E F F# G G#'.split(' ')
+
+let line_num = 0
+let sequence
+interface.on('line', line => {
+    if (line_num % 2 === 0) {
+        if (line === '***') {
+            process.exit(0)
+        }
+        sequence = line.split(' ').map(s => keys.get(s))
+    } else {
+        let key_move = Number(line)
+        console.log(sequence.map(key => keys_rev[((key + key_move) % 12 + 12) % 12]).join(' '))
+    }
+    line_num += 1
+})