#50592 (Scheme) No.272 NOT回路 - yukicoder

提出ソース

結果

問題	No.272 NOT回路
ユーザー	yusaka
提出日時	2015-09-22 13:17:14
言語	Scheme (Gauche-0.9.14)
結果	AC
実行時間	27 ms / 1,000 ms
コード長	142 bytes
コンパイル時間	128 ms
コンパイル使用メモリ	6,684 KB
実行使用メモリ	16,000 KB
最終ジャッジ日時	2024-07-19 08:36:43
合計ジャッジ時間	1,246 ms
ジャッジサーバーID （参考情報）	judge4 / judge2

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	24 ms 16,000 KB
testcase_01	AC	24 ms 15,872 KB
testcase_02	AC	27 ms 16,000 KB
testcase_03	AC	25 ms 15,872 KB
testcase_04	AC	25 ms 15,872 KB
testcase_05	AC	24 ms 15,872 KB
testcase_06	AC	24 ms 15,872 KB
testcase_07	AC	25 ms 15,872 KB
testcase_08	AC	24 ms 15,872 KB
testcase_09	AC	24 ms 15,872 KB
testcase_10	AC	24 ms 16,000 KB
testcase_11	AC	24 ms 15,872 KB

権限があれば一括ダウンロードができます

ソースコード

raw source code

#!/usr/bin/env gosh

(define (abs x)
  (if (< x 0)
      (* -1 x)
      x))

(let ((input (read)))
  (display (abs (- input 1)))
  (newline))

0