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

提出ソース

結果

問題	No.272 NOT回路
ユーザー	yusaka
提出日時	2015-09-22 13:17:14
言語	Scheme (Gauche-0.9.14)
結果	AC
実行時間	19 ms / 1,000 ms
コード長	142 bytes
コンパイル時間	275 ms
コンパイル使用メモリ	7,076 KB
実行使用メモリ	13,708 KB
最終ジャッジ日時	2023-09-26 14:23:07
合計ジャッジ時間	1,301 ms
ジャッジサーバーID （参考情報）	judge11 / judge12

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	17 ms 11,672 KB
testcase_01	AC	18 ms 11,792 KB
testcase_02	AC	17 ms 11,820 KB
testcase_03	AC	17 ms 11,744 KB
testcase_04	AC	18 ms 11,788 KB
testcase_05	AC	18 ms 11,704 KB
testcase_06	AC	19 ms 13,708 KB
testcase_07	AC	18 ms 11,748 KB
testcase_08	AC	18 ms 11,628 KB
testcase_09	AC	18 ms 11,704 KB
testcase_10	AC	19 ms 11,712 KB
testcase_11	AC	18 ms 11,628 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